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Composé dans la continuité des "Mystères du X-07" , ce deuxième ouvrage 
complète les connaissances acquises lors de la lecture de ce dernier . Bâti 
autour de trois grandes parties (Soft , Technique , Applications) , ce livre 
constitue la première référence en matière d'applications pures dans l'univers 
du X-07 . 


Tout en reprenant les recettes qui ont fait le succès des "Mystères" (Taille, 
clarté , exemples , schémas .) , "Applications en ASSEMBLEUR dans l'univers 
du CANON X-07" apporte son lot de nouveautés avec une présentation 
originale, un style différent et surtout une pléiade d'applications qui 
satisferont le plus exigeant des canonistes 


AVRIL 1989 , KOUROU , GUYANE FRANCAISE … 


Il faisait très chaud au centre d'essais depuis quelques heures .. Pourtant 
ce n'était pas dû aux rayons du soleil , cachés depuis quelques temps derrière 
d'épais nuages laiteux . Non … L'explication était toute autre et seuls les initiés 
pouvaient comprendre l'énorme enjeu qui se jouait devant eux 


Tout à coup , une énorme flamme bleue se profila sur les écrans de 
contrôle , suivie d'une fine volute blanche annonciatrice de réjouissances … Les 
moteurs d'HERMES , première navette européenne , venaient de 
s'allumer !! Un sans-faute pour toute l'équipe de ce projet , qui travaillait 
d'arrache-pied depuis dix ans 


La spectaculaire destruction , en Janvier 1986 , de la navette 
CHALLENGER avait sensiblement refroidi les ardeurs américaines . Les yeux du 
monde entier s'étaient alors tourné vers l'Europe … vers HERMES ! 


En ce 24 avril de l'année 1989 , une page de l'histoire. technologique du 
vieux continent était tournée … HERMES était fin prête ! 


JUIN 1989 , PARIS 


Tout en marchant le long des couloirs de ROISSY , j'ai l'intuition que mon 
séjour à Kourou ne va pas être une partie de plaisir . Vérifier tous les 
systèmes extérieurs d'HERMES ne va pas être de tout repos ! 


Pourtant , à 25 ans , j'ai réussi à me hisser au poste d'ingénieur 
informaticienne alors qu'au départ , certains me destinaient plus volontiers à 
une carrière de mannequin 


Pourquoi ai-je été choisie alors que d'autres apparaissaient plus 
compétents ? "Tout simplement" à cause de mon X-07 ! Que vient faire cette 
machine dans cette histoire ? 


Il y a un peu moins d'un an , j'ai réalisé un système de détection de 
pannes "dernier cri" : détecteur ultra-perfectionné en relation infrarouge 
constante avec les ordinateurs centraux , rapidité de travail phénoménale , 
X-07 comme "cerveau principal" dopé avec deux Méga-octets de mémoire et 
quelques processeurs 

Ce genre de détecteur "tout terrain” commençait à devenir très apprécié 
dans les technologies de pointe …. Il suffisait de faire ingurgiter au X-07 les 
caractéristiques d'une panne et le détecteur se chargeait du reste . Dès qu'une 
panne était constatée , l'ordinateur central prenait le relais en affinant les 
résultats 

Ce projet avait été ma carte de passage … Espérons qu'il ne me fera pas 
faux bond en Guyane ! 


"Poste 3 … Boeing 747 à destination de Kourou , Guyane Embarquement 
immédiat ." . C'est pour moi ! Un dernier coup d'oeil à Paris et me voilà dans 
les nuages . Tout en m'enfonçant confortablement dans mon siège , je 
commence à vérifier fébrilement tout mon matériel . Je prends mes deux 


“"bibles X-07" ("Les mystères du X-07" et "Applications en 
ASSEMBLEUR dans l'univers du CANON X-07") et me voilà parti pour 
quatre heures de minutieuses mises au point 


20 AOÛT 1989 , KOUROU , GUYANE. 


Depuis deux mois , je n'arrête pas ! Je dors à peine quatre heures par nuit 
mais je ne suis pas fatiguée . L'excitation du départ prochain d'HERMES me 
donne des ailes 


Mes vérifications techniques se sont bien passées . Le X-07 a 
merveilleusement bien fonctionné et une panne de compresseur a été détectée, 
il y a deux jours . La réparation est terminée depuis trois heures et je 
m'escrime à y déceler une éventuelle défaillance … Mais apparemment , rien 
d'anormal ! 

Le "jour J" approche …. Dans cinq jours , nous serons fixés définitivement 


sur l'avenir de l'Europe spatiale 


25 AOÛT 1989. KOUROU. PAS DE TIR... 


C'est l'effervescence au centre de contrôle ! Tout le gouvernement 
français est là … Le président a l'air particulièrement fébrile 
Le compte à rebours est commencé depuis pas mal de temps déjà … Il 


devrait rester environ trois minutes 


L'excitation monte dans la salle et les yeux d'une centaine de techniciens 
sont braqués sur les indicateurs de panne . Aucun d'eux ne semble vouloir 
s'allumer . Le CANON aurait-il détecté toutes les pannes ? 


Ca y est ! Il reste cinq secondes .… quatre … trois … deux …. une .… zéro … 
Mise à feu des moteurs !! 

HERMES s'élève majestueusement du sol , déroulant une magnifique 
trainée blanche .. Elle poursuit sa route comme prévu et se place en orbite 
quelques instants plus tard ! 


C'est le délire à Kourou !! Chacun a droit à une part de cet énorme succès . 
Toutes les personnes présentes sont félicitées personnellement par le 


président de la nation . En s'approchant de moi , il me souffle : " Comment 
avez-vous fait pour vérifier tous les systèmes en si peu de temps ? ." . Je lui 
réponds malicieusement : "Vous savez , ce n'est pas compliqué … Il suffit de 


deux bons livres de recettes , d'un X-07 et de quelques condiments . Vous y 
rajoutez un peu de jugeotte et le tour est joué !" 

Nous rions ensemble en regardant HERMES s'épanouir dans l'espace 
interplanétaire … Bravo l'Europe et merci CANON ! 


A. TONIC 


INTRODUCT 


Après le grand succès des "Mystères du X-07" , nous nous devions 
absolument d'écrire un second ouvrage , une suite 


En effet , après avoir appris l'ASSEMBLEUR du X-07 , tous les utilisateurs 
de cette merveilleuse machine ont ardemment désiré aller plus loin , mieux 
connaître l'interface X-720 , la mémoire , les ports de sortie , l'utilisation de la 
zone système , que sais-je encore ? 

Pour toutes ces personnes et pour tous ceux qui adorent utiliser des 
logiciels "clés en main" , nous avons repris notre plume en compagnie d'un 
nouveau technicien , Jean-Jacques ROUSSEAU , qui arbore un nom tout à 
fait prédestiné !! 


Avant tout chose , je souhaiterais souligner un point primordial : cet 
ouvrage s'appuie en partie sur les connaissances que vous devez avoir acquises 
à la lecture des "Mystères du X-07" . Par conséquent , si vous ne l'avez pas 
encore lu , mettez au chaud le livre que vous tenez entre les mains et 
compulsez attentivement le premier ouvrage . Cela vous sera très utile et vous 
aidera à mieux assimiler les notions exposées ci-après 


"Applications en ASSEMBLEUR dans l'univers du CANON X-07" 
est constitué principalement d'applications , apparemment très hétérogènes , 
mais toutes reliées au moins par un point commun : elles sont toutes écrites en 
ASSEMBLEUR X-07 et exploitent à fond les possibilités du CANON 

Nous vous conseillons de commencer à lire cet écrit à 8 heures du matin 
et non à 8 heures du soir car sinon , votre nuit sera tellement mouvementée 
que vous maudirez le ciel de ne pas avoir acheté un matelas 
"Epéda-multispires" !!! 


Après ces petites recommandations , entrons dans le vif du sujet …. Que 
contient ce palpitant assemblage de feuilles ? 


Juste après le sommaire , nous allons vous emporter dans un tourbillon 
d'octets , d'adresses , de langage machine . En fait , vous apprendrez à 
manipuler , à contorsionner , à réduire , à fouiller la mémoire de votre X-07 
comme vous ne l'avez encore jamais fait ! …. C'est fou ce que la petite mémoire 
du CANON peut contenir comme surprises 


Ensuite , après avoir bu un petit soda et vous être reposé quelques 
instants , vous pourrez poursuivre votre quête …. Quelques chapitres plus 
techniques vous emporteront dans le monde obscur de la communication et 
des périphériques 


Enfin , après tous ces fascinants périples , vous désirerez probablement 
vous détendre . A cet effet , nous vous avons concocté une dizaine de 
logiciels tous plus intéressants les uns que les autres 


Le soleil se couchera sur l'horizon auréolé de brume quand vous 
terminerez la lecture des annexes .… Vous tomberez de sommeil en pensant 
"Ah !! … Si je n'avais pas connu les Editions NEPTUNE et le CLUB C7 , que 
serions-nous devenu , moi et mon X-07 ? ….." 


A. TONIC 
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1dre _PARTIF + 


Où 1 'on commence par du SOFT 


LISATION 
de _ROUTINES 


Nous allons débuter cette première partie par l'un des problèmes les plus 
importants auquel se heurtent la plupart des programmeurs : l'utilisation 
des sous-programmes en langage machine sous BASIC. 


Comme vous l'avez sans doute remarqué quand vous programmiez , l'un 
des défauts majeurs du BASIC est sa grande lenteur d'exécution . On peut 
souvent améliorer de façon importante la vélocité d'un logiciel . Comment ? 
Tout simplement en écrivant en ASSEMBLEUR Îles parties critiques du 
programme |! 


Deux commandes du BASIC MICROSOFT du X-07 permettent la 
communication entre les deux langages (BASIC et L.M.) . 

D'une part , l'instruction "EXEC adresse" permet de lancer une routine 
écrite en ASSEMBLEUR à partir du BASIC . Notons que cette commande possède 
une lacune majeure : elle ne permet pas le passage d'arguments . 

D'autre part , la directive "USR (adresse , argument)" permet 
également de lancer un sous-programme écrit en langage machine . L'intérêt 
majeur de cette commande réside dans le fait qu'elle autorise le passage 
d'arguments 


Tout d'abord , examinons ensemble le problème de la mise en place de la 
routine 


1__ADR E D'I ANTAT : 


Après chaque arrêt et remise en route normale (sans passer par 
l'instruction SLEEP) du X-07 , les pointeurs de début et de fin de la zone BASIC 
sont réactualisés . Nous rappelons que le rôle de ces pointeurs et leur 
utilisation sont décrits dans "les MYSTERES du X-07" : nous ne reviendrons 
donc pas dessus . 
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Par conséquent , il est donc possible d'introduire , sans risques 
importants, des routines écrites en ASSEMBLEUR après Île logiciel 
BASIC. 


La méthode classique consiste à introduire les codes dans Îla 
zone réservée au moyen d'un ordre CLEAR (Exemple : CLEAR 50,4000 
fixe la limite de la zone utilisateur à l'adresse 4000 . Donc , les octets situés 
après l'adresse 4000 peuvent être utilisés pour écrire des routines L.M.) 

La zone réservée est caractérisée par deux pointeurs . MEMSIZ (adresse 
&HO1DF en hexadécimal) représente le pointeur de début (fin de la zone 
BASIC) et se trouve être initialisé par la commande CLEAR . Le pointeur de fin 
de cette zone se nomme RAMSTRT (adresse &H210) et fournit le début précis 
de la zone "fichiers RAM" . Ce pointeur est donc actualisé par l'instruction FSET. 


Il existe une deuxième méthode pour implanter vos routines . Il suffit 
simplement d'écrire votre sous-programme dans le fond de la zone 
des fichiers RAM . Bien évidemment , il faut disposer d'une place suffisante 
dans cet espace . L'ordre DIR permet d'effectuer ce contrôle 

Si on utilise cette éventualité , il n'est plus nécessaire d'exécuter l'ordre 
CLEAR à chaque mise sous tension du CANON . Par contre , il est primordial de 
veiller à ne pas écraser la routine en écrivant dans la zone RAM . De la même 
façon , vous devez éviter d'implanter votre routine sur un logiciel stocké 
comme "fichier RAM" . 


Ces deux méthodes imposent au programmeur de contrôler la gestion 
de la mémoire et les adresses d'implantation dépendant de la version 
utilisée (CANON 8 Ko , 12 Ko , 16 Ko , 20 Ko , 24 Ko … ou plus maintenant grâce 
aux sociétés de service : pour plus de renseignement à ce sujet , vous pouvez 
consulter les gazettes du CLUB C7) . 

Notons qu'il existe d'autres possibilités permettant de s'affranchir de ces 
difficultés … Mais il est vrai que d'autres problèmes apparaissent ! Nous vous 
les présentons ci-dessous 


L'interpréteur ignore ce qui se trouve après une instruction "REM" . En 
effet , quand un logiciel est en cours d'exécution , dès que l'interpréteur 
découvre "REM" , il passe automatiquement à la ligne suivante . Il est donc tout 
à fait possible d'implanter une routine après REM 


16 


L'utilisation de cette méthode est relativement aisée . Il faut tout d'abord 
créer une ligne contenant l'intruction REM , suivie d'un nombre de caractères 
égal à la longueur de la routine . Ensuite , vous pouvez implanter entièrement 
votre routine par la commande "POKE adresse , code" 

I s'avère très facile de déterminer l'adresse du début d'implantation 
grâce à l'instruction "RESTORE n° de ligne" . En effet , cette directive charge 
dans les octets &H328 et &H329 l'adresse absolue du début de la ligne en 
question . Cette adresse est donc égale à : 

AD = PEEK (&H329) * 256 + PEEK (&H328) + 6 

Il faut impérativement rajouter le chiffre 6 afin de tenir compte des 
octets de chaînage , du numéro de ligne et du code de l'instruction REM (Voir 
les "MYSTERES du X-07" , pages 87 à 90) . 


Cette possibilité possède plusieurs avantages très intéressants : tous les 
codes sont admissibles , l'implantation est absolue et invariante , le code est 
résident . De ce fait , chaque logiciel BASIC apporte ses propres routines L.M. et 
l'utilisateur n'a pas à s'occuper du chargement de codes supplémentaires 


Par contre , la longueur d'une routine est limitée à 80 codes sur l'écran 
LCD et à 255 sur l'écran vidéo . De plus , certains codes peuvent "troubler" 
l'interpréteur : il est donc vivement conseillé de sauter la ligne "truffée" d'une 
routine au moyen de l'instruction "GOTO" . Enfin , l'édition de la ligne , après 
l'implantation , est impossible et les résultats du listage sont imprévisibles 
(Voir l'exemple 1) . 


112 I Éthade de cit j 


Dans le cadre du BASIC MICROSOFT , il existe deux possibilités 
d'implantation d'une chaîne de caractères 


11,2,1 Dans Ile corps du programme , 


Par exemple , la chaîne contenue dans la ligne 10 A$="TURLUTUTU" 
possède une adresse fixe étant donné qu'elle réside dans le corps du 
programme . Cette adresse peut être obtenue par l'intermédiaire de la fonction 
VARPTR : 


AD = VARPTR (A$) : AD = PEEK (AD + 2) * 256 + PEEK (AD + 1) 
La routine peut alors être implantée grâce à l'instruction "POKE" dans la 
chaîne de caractères 


Les avantages sont constitués par l'adresse d'implantation absolue et le 
code résident 
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Par contre , les résultats de listage sont totalement imprévisibles . D'autre 
part , le code 0 est interdit car il indique une fin de ligne . De même , le code 
&H22 est à bannir : il représente le guillemet , donc une fin de chaîne … Nous 
vous laissons imaginer les dégats prévisibles !! 


L1.2,2 Dans la zone des chaînes , 


Par exemple , la chaîne résidant dans la ligne 10 A$ = STRING$ (100 , "*") 
est contenue dans la zone des chaînes de caractères . Son adresse n'est donc 
pas absolue et peut évoluer tout au long de l'exécution du programme 


Notons que tous les codes peuvent être utilisés et que les problèmes de 
listage disparaissent 


Le défaut majeur de cette méthode est constitué par le fait qu'elle n'est 
utilisable qu'avec les programmes relogeables . De plus , il faut 
impérativement recalculer l'adresse d'implantation avant chaque appel à la 
routine . D'autre part , il est obligatoire de réimplanter la routine à chaque 
utilisation (Voir exemple 2) 


L13 La méthode du tableau d'entiers 


Avec cette possibilité , le code machine est introduit dans un tableau 
d'entiers (Deux codes pour chaque valeur d'indice) dont on récupère l'adresse 
en utilisant la fonction VARPTR (T(0)). 

Cette méthode est délicate à mettre en oeuvre si la longueur de la routine 
est importante mais elle offre l'avantage de permettre le passage aisé 
d'arguments multiples . Quelques précautions sont bien évidemment à prendre 
lors du codage de la routine . En effet , les codes sont introduits deux par deux 
et sont croisés . Voici un petit exemple : 


É SEE 1 : "__modifi Code résultant 
NOP 00 

LD HL , source LD HL , source 21 xx xx 
NOP 00 

LD DE , destination LD DE , destination 11 yy yy 
NOP 00 

LD BC , longueur LD BC , longueur 01 zz zz 

LDIR LDIR ED BO 

RET RET C9 
NOP 00 
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Les trois premiers "NOP" servent au cadrage . Le dernier permet d'avoir 
un nombre pair d'octets 
Voici l'implantation résultante 


Codes normaux Codes croisés Valeur décimale 
EX (0) 00 21 21 00 8448 
EX (1) (source) codage effectué par l'interpréteur du X-07 
EX (2) 00 11 11 00 4352 
EX (3) (destination) codage effectué par l'interpréteur du X-07 
EX (4) 00 01 01 00 256 
EX (5) (longueur) codage effectué par l'interpréteur du X-07 
EX (6) ED BO BO ED - 20234 
EX (7) C9 00 00 C9 201 
Cette méthode a effectivement quelques petits inconvénients : difficulté 


de mise en oeuvre , utilisation uniquement avec des codes relogeables 
évolution de l'adresse d'implantation 


, 


En conclusion , nous pouvons remarquer la relative multiplicité des 
méthodes d'implantation de routines L.M . Notons qu'après la mise au 
point du programme , il est possible de supprimer les parties du logiciel ayant 
servi à l'implantation de la routine (uniquement pour les méthodes 1.1.1 et 
1124) 


12 APPEL DE LA ROUTINE 


Nous abordons un secteur très important de la programmation en 
ASSEMBLEUR : l'appel d'une routine à partir du BASIC . Voici 
ci-dessous, les différentes méthodes 


L2.1 Sans passage d'arguments _, 


L'appel d'une routine sans passage d'arguments constitue le cas le plus 


simple … Il suffit d'utiliser la fonction "EXEC adresse" . Après exécution de la 
routine L.M. , la commande EXEC fait pointer l'interpréteur sur l'instruction 
suivante . Si la routine ne se termine pas par l'instruction "RET'" de 


l'ASSEMBLEUR Z-80 , le CANON se bloque et le "RESET" est nécessaire … 
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12,2 Avec passage d'arguments _, 
12,2,1 Argument unique 


Si l'argument est unique , on doit utiliser Z = USR (adresse , 
argument) . Deux cas sont alors possibles … 


Si l'argument est une chaîne de caractères , le registre DE contient 
l'adresse (ADR) dès l'entrée dans la routine . De plus , l'octet pointé par ADR 
contient la longueur de la chaîne 

L'adresse physique de la chaîne est contenue dans les deux octets pointés 
par les adresses ADR + 1 et ADR + 2. 


Si l'argument est un nombre , la routine USR transfère la valeur de 
l'argument dans l'accumulateur (&H44E à &H455) avant d'entrer dans le 
sous-programme . De plus le registre A contient le type de donnée (2-entier , 
4=simple précision , 8=double précision) et le registre HL pointe sur le début 
de l'accumulateur (&H44E) 


Pour récupérer l'argument , on peut utiliser les routines de transfert de 
données (Voir les "MYSTERES .." , pages 105-106) . Par exemple , la routine 
CA26 tranfère le contenu de l'accumulateur dans la paire de registres BC/DE 
(cas des nombres en simple précision) 


Pour le transfert avec des entiers , vous pouvez utiliser la routine 
suivante 


INC HL 
INC HL 
PUSH HL ; sauvegarde de HL pour le retour de la routine 
(inutile s'il n'y a pas d'argument à retourner au BASIC) 
LD E,(HL) 
INC HL 
LD D,(HL) 
EX DE,HL ; HL contient l'argument entier passé par la fonction USR 


Pour le retour , la routine USR effectue l'opération inverse : le contenu de 
l'accumulateur est transféré dans la variable d'appel de USR 


Dans le cas des entiers , vous pouvez passer par l'intermédiaire de la 


méthode décrite à la page suivante … On suppose que l'entier à retourner est 
contenu dans le registre BC : 
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POP HL ; récupère l'adresse des entiers dans l'accumulateur 
LD (HL),C 

INC HL 

LD (HL),B 

RET ; retour au BASIC 


1L1,2,2 Arguments multiples 


Si vous avez plusieurs arguments à faire passer , la méthode des 
tableaux est très puissante . Si elle n'est pas utilisable , il faut passer les 


arguments au moyen d'un tableau dont l'adresse sera l'argument de la routine 
USR. 


Voici un exemple précis …. On désire passer les arguments suivants 
contenus dans le tableau d'entiers : ARG (0) = aa00 
ARG (1) = xxyy 
ARG (2) = dd00 
ARG (3) = zzuu 
L'appel de la routine se fait par T = USR (adresse, VARPTR (ARG(0))). 
Début de la routine : INC HL 


INC HL 
PUSH HL ; HL pointe l'adresse de ARG (0) 
LD E,(HL) 
INC HL 
LD D,(HL) 
PUSH DE  ; DE = adresse absolue de ARG (0) 
POP IX 
On obtient alors (IX+0) = aa (IX+1) = 00 (AX+2) = xx (IX+3) = yy 
Par conséquent , l'adressage indexé est utilisé afin de récupérer les 


valeurs des arguments 
Pour le retour ,; on peut utiliser la même technique . 


Remarquons que dans le cas d'une implantation en adresse absolue de la 


routine , les arguments seront envoyés par l'instruction POKE avant l'appel de 
la routine . 


Après ces explications théoriques , nous vous avons concocté quelques 
exemples supplémentaires qui vont vous aider à assimiler les importantes 
notions que nous venons d'aborder 
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L3 EXEMPLES D' UTILISATION, 
L3,1 Exemple N°1, 


Ce premier exemple va permettre de concrétiser la méthode de 
l'instruction REM que nous venons de voir (paragraphe 1.1.1) 

Remarquons une astuce très intéressante : toute erreur survenant après 
la ligne 50 provoque le passage automatique dans le mode d'édition 
LIST @ . 

Voici le listing du programme : 


10 GOTO 20 

15 REMO1234567890123456789 

20 RESTORE 15 : AD% = PEEK (&H329) * 256 + PEEK (&H328) + 6 

30 FOR 1% = 0 TO 19 : READ B$ : POKE AD% + 1%, VAL ("&H" + B$): NEXT I% 

40 DATA 06 , 08 , El , 10 , FD , 2A , 15 ,03 , ES , D1 , CD ,0B , F3 , FD ,21, 
00 , 40 , C3 , 8A , FE 

50 ON ERROR GOTO 65000 

60 ‘ DEBUT DU PROGRAMME 

100 A = 5: B =0:C = A/B 

64999 END 

65000 PRINT "Erreur" 

65010 EXEC AD% 


1.3.2 Exemple N°2 . 


Ce second exemple va démontrer l'efficacité de la méthode de la 
chaîne de caractères (paragraphe 1.1.2.2) 
Voici son listing : 


10 A$ = STRING$ (20,"#") 

20 AD% = VARPTR (A$) : AD% = PEEK (AD% + 1) + 256 * PEEK (AD% + 2) 

30 FOR 1% = 0 TO 19 : READ B$ : POKE AD% + 1%, VAL ("&H" + B$): NEXT 1% 

40 DATA 06 , 08 , El , 10, FD ,2A ,15 ,03 ,ES , D1 , CD ,0B ,F3 , FD ,21, 
00 , 40 ,C3,8A , FE 

50 ON ERROR GOTO 65000 

60 ‘ DEBUT DU PROGRAMME 

100 A=5:B=0:C = A/B 

64999 END 

65000 PRINT "Erreur" 

65005 AD% = VARPTR (A$) : AD% = PEEK (AD% + 1) + 256 * PEEK (AD% + 2) 

65010 EXEC AD% 
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L3,3 Exemple N°3, 


La méthode des tableaux d'entiers va être explicitée ci-dessous 
Etudiez-la consciencieusement …. Bien qu'un peu compliquée , elle pourra vous 
rendre de nombreux services !! 

Voici son listing : 


10 DIM U%(9) 

20 U%(0) = &H0806 : U#(1) = &H10E1 : U%(2) = &H2AFD : U%(3) = 
&H0315 : U%(4) = &HDIES 

30 U%(5) = &HOBCD : U%(6) = &HFDF3 : U%(7) = &H0021 : UX(8) = 
&HC340 : U%(9) = &HFE8A 

50 ON ERROR GOTO 65000 

100 D$ = 5 

64999 END 

65000 PRINT "Erreur" 

65010 EXEC VARPTR (U%(0)) 


13.4 Exemple N°4 , 


Ce quatrième exemple expose la manière d'écrire une même valeur 
dans toutes les cases d'un tableau à une dimension. 

Si ce tableau est composé d'entiers , on aura U(5) = N*2 . Par contre 
tableau est composé de réels en double précision , on aura U(5) = N*8 . 


, Si le 


Vous pouvez comparer la vitesse d'exécution de cette petite routine avec 
celle d'une boucle écrite en BASIC … Une légère différence transparaît !! 
Voici le listing : 


10 DEFINT A-Z : N = 50 : DIM U(7) , A!(N) 

15 AD = 0 

20 U(0) = 8448 : U(2) = 4352 : U(4) = 256 : U(6) = -20243 : U(7) = 201 
30 A!(0) = 100 : GOSUB 100 

40 PRINT A!(0) ; A!(1) ; A!(20) 

50 A!(0) = 0 : GOSUB 100 

60 PRINT A!(0) ; A!(1) ; A!(20) 

70 END 

100 U(1) = VARPTR (A!(0)) : U(3) = VARPTR (A!(1)) : U(5) = N*4 

110 EXEC VARPTR (U(0)) : RETURN 
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13.5 Exemple N°5, 


Cet avant-dernier exemple vous expose la façon de remplir un écran 
vidéo très rapidement . 

Vous devez ajuster la valeur de la variable US(5) selon le mode écran 
Notons que le code à reproduire se trouve en ligne 40 . 

Voici le listing de cette routine : 


5 SCREEN 2 : CLS 
6 LINE (0,0) - (200,180) 
10 DEFINT A-Z : DIM US(7) 


20 US(0) = 8448 : US(2) = 4352 : US(4) = 256 : US(6) = -20243 : US(7) = 
201 
30 US(1) = &H8000 : US(3) = &H8001 : US(5) = 511 


40 POKE &H8000 , 64 
50 EXEC VARPTR (US(0)) 
70 END 


13.6 Exemple N°6. 


Si la fonction "RESTORE n° de ligne" est présente dans le BASIC du 
CANON, la fonction "RESTORE variable" provoque , par contre , un singulier 
"UL Error" . 

Cette fonction peut être très facilement implémentée au moyen de la 
petite routine relogeable incluse dans le listing ci-joint 


On commence par charger le registre DE avec la valeur de la variable . 
Ensuite , la routine F30D (Voir les "MYSTERES" , page 109) recherche le 
numéro de ligne BASIC et en retour , la valeur de l'adresse de la ligne se 
trouve dans le registre BC . Notons que si la ligne n'est pas trouvée , le 
message "UL Error" apparaît tout à fait normalement . Finalement , le pointeur 
des DATA est actualisé . 


Dans le listing ci-dessous , la partie supérieure du logiciel "LOGOGENESE" 
présent dans le chapitre des applications (en fin d'ouvrage) est reprise . En 
effet , ce logiciel utilise la technique du RESTORE calculé . Normalement , 
33 lignes de DATA sont présentes des lignes 100 à 132 ainsi que 14 autres des 
lignes 200 à 213 . 

Notons que la routine Z = USR (AD,J) est équivalente à RESTORE 
J. De plus, la ligne 90 calcule l'adresse d'implantation de la chaîne au moment 
de l'appel de la routine . 


Voici le listing : 


1 ' ATTENTION : NE PAS RENUMEROTER !! 

10 DEFINT A-Z : CLS : PRINT "Logogénèse" 

20 RM$ = STRING$ (18,0) : GOSUB 90 

30 FOR I = 0 TO 17 : READ B$ : POKE AD +1, VAL ("&H" + B$) : NEXT : 
Z = RND (0) 

40 DATA 23 ,23,5E , 23,56 , CD , 0D , F3, 60,69, D2,38 ,F6,2B ,22, 
28 ,03 , C9 

45 J = INT (RND (1) * 33) + 100 : GOSUB 90 

50 Z = USR (AD,J) : N = INT (RND (1) * 4 + 1) 

55 FOR I = 1 TO N : READ D$ : NEXT 

60 K = INT (RND (1) * 14) + 200 : GOSUB 90 

65 Z = USR (AD,K) : N = INT (RND (1) * 4 + 1) 

70 FOR I = 1 TO N : READ F$ : NEXT 

75 PRINT D$ ; F$ : IF INKEY$ = "" THEN 45 


80 IF INKEY$ = "" THEN 80 ELSE 45 

90 AD = VARPTR (RMS) : AD = PEEK (AD + 1) + 256 * PEEK (AD + 2) : 
RETURN 

95 END 


Si vous désirez plus de compléments sur cette technique de "RESTORE 
calculé" , vous pouvez utilement consulter la gazette N°5 du CLUB C7 … 


Après ces quelques exemples qui , nous l'espèrons , auront éclairé 
quelque peu votre lanterne , nous allons vous exposer tous les codages de 
variables en mémoire … 

En effet , ce problème apparaît comme très peu connu par les utilisateurs 
du X-07 et pourtant , il apporte un réel complément à la programmation 
structurée 
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DAGE __D 
VARIABL 


Le codage des variables et des tableaux constitue un passage 
important à la bonne compréhension des mécanismes internes du X-07 . En 
effet , une bonne partie des informations que vous désirez conserver lors de 
votre programmation est conservée dans des variables 

Il est donc primordial de bien disséquer ce codage qui , d'ailleurs , n'est 
pas très évident au premier abord 


2.1 LE CODAGE DES VARIABLES, 


Le codage des variables peut être appréhendé grâce à la fonction 
VARPTR du BASIC . Elle affiche l'adresse d'une variable donnée et permet de 
remonter le codage de cette dernière 

Afin de bien vous faire comprendre le codage des variables dans la 
mémoire du CANON , nous avons voulu faire passer un message graphique 
peuplé d'exemples … Reportez-vous à la figure 1 


Voici quelques indications sur la place occupée par les divers types de 
variables que l'on peut rencontrer 


Variable entière (%) : 5 octets. 

Variable en simple précision (!) : 7 octets. 

Variable en double précision (#) : 11 octets. 

Chaîne de caractères ($) : 6 octets + la longueur de la chaîne. 
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2.2 LE CODAGE DES TABLEAUX. 


Les tableaux de variables autorisent de nombreuses applications très 
pratiques et surtout très puissantes . La figure 2 expose les différents codages 
possibles 


Voici quelques indications sur la taille en octets qu'ils nécessitent 


* Longueur d'un tableau d'entiers = 10 + 2 * indice maximum 
(une dimension) 

* Longueur d'un tableau de nombres en Simple Précision 

12 + 4 * indice maximum 
(une dimension) 


* Longueur d'un tableau d'entiers 
10 + 2 * (indice 1 maximum + 1) * (indice 2 maximum + 1) 
(deux dimensions) 


Quelques exemples d'application 


DIM T%(20) --> Nombre d'octets occupés : 50 
DIM T!(20) --> Nombre d'octets occupés : 92 
DIM T#(20) --> Nombre d'octets occupés : 176 
DIM T%(4,5) --> Nombre d'octets occupés : 70 
DIM T#(4,5) --> Nombre d'octets occupés : 250 
DIM T%(2,4,5) --> Nombre d'octets occupés : 192 
DIM T#(2,4,5) --> Nombre d'octets occupés : 732 
Nous allons bientôt aborder un sujet passionnant : l'utilisation de 


certaines routines de la ROM . Alors , accrochez votre ceinture à votre fauteuil 
car nous allons décoller dans quelques pages !! 
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CONTENU DE LA 


MEMOIRE EXEMPLES  D' APPLICATION 


En prenant la variable A% = 1234 ,on a: 


VARPTR 


-3 
-2 
-1 
<-- VARPTR 


Exposant + 40h = 44h 


13 Prenons PI# 
-2 
-1 
ee 


VARPTR 


Exposant + 40h = 4ïh 


-3 
-2 
" N.B 
VARPTR données dans les 


cases sont en 
hexadécimal 


les valeurs 


<-- 


D VARIABLE 


tableau sui. (00) 
Nbre indices (1) 


Type (2) -12 
NOM 1 (41) 11 
NOM 2 (54) -10 

offset tab. (BB) -9 
suivant (00) -8 
Nbre indices (3 «7 
valeur maxi (6) -6 
indice 3 + 1 (0) -5 
valeur maxi (5) -4 
indice 2 + 1 (0) -3 
valeur maxi (3) -2 
indice 1 + 1 (0) -1 
T (0,0,0) <-- VARPTR 


De 


valeur maxi (OB) 


indice + 1 (00) 


T% (0) <-- VARPTR 


T  (1,0,0) 
T  (2,0,0) 
T  (0,1,0) 
T  (1,1,0) 
T  (2,1,0) 


T  (0,2,0) 


T (4,45) 


T (2,45) 


indice 1 + 1 (00) 
T! (0) T (0,0) <-- VARPTR 
T (1,0) 


T (2,0) 
T! (1) 


TILISATION _DE 
TIN D 


Ce chapitre est entièrement consacré à l'utilisation de certaines 
routines de la mémoire morte du X-07 . En effet , il est très agréable de 
posséder une pléiade d'adresses diverses , encore faut-il pouvoir ou savoir les 
utiliser à l'optimum.de leurs possibilités 


C'est en pensant à cet impératif que nous vous avons écrit les quelques 
routines qui vont suivre . Elles sont très simples à comprendre et vous seront 
d'une grande utilité dans tous vos logiciels écrits en langage machine 


Evidemment , les programmeurs chevronnés trouveront probablement 
ces petites routines très classiques … Nous les invitons donc à passer au 


chapitre suivant sans autre forme de procès ! 


Par contre , ceux qui désirent approfondir et optimiser leur 


programmation vont se délecter … Plusieurs routines de la ROM du CANON ont 
été utilisées : pour ceux qui ne les connaissent pas , reportez-vous aux 
"MYSTERES du X-07" . 

D'autre part , les programmes sont présentés sous leur forme "brute" . A 
vous de les implanter où bon vous semble !! Trois champs sont présents pour 


chaque listing : LABEL , MNEMONIQUE , COMMENTAIRE . 


Entrons sans plus attendre dans le merveilleux monde de la 
programmation pure. 


LA "INKEYS" v 


L'instruction "INKEYS$" se montre indispensable en BASIC . Pourquoi ne 


pas la créer en langage machine ? .…. Elle deviendra très vite primordiale 
Saisie d'options , menu , jeu d'arcade , attente … 
Nous allons pour cela , utiliser une routine très pratique située en 


&HC9IOA . Rappelons qu'elle permet de saisir un octet au clavier . 
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Voici un listing de ce petit sous-programme 


INKEY XOR A ; Attente de la pression d'une touche 
CALL $C90A ; Appel de la routine 
JR Z , INKEY ; Saut si aucune touche n'est pressée 
RET ; Retour et le registre A contient le code 


ASCII de la touche pressée 


3.2 TRACE DE DROITES, 


La routine exposée va vous permettre de tracer un nombre donné de 
droites sur l'écran LCD du X-07. 

Le principe est simple . On utilise le sous-processeur T6834 en lui 
envoyant les coordonnées de la droite à tracer (4 données indispensables par 
droite : Xi , Yi , Xf , Yf) . Ces nombres sont contenus dans un espace repéré par 
le registre HL . Le T6834 trace alors le segment désiré grâce à sa routine N°14 
(en hexadécimal) 

Dès qu'il a terminé , il recommence si le nombre de droites (contenu dans 
le registre B) n'est pas nul … 


Donc , avant d'utiliser la routine , il faut : 

_ Remplir une zone tampon avec vos coordonées 

_ Charger le registre HL avec l'adresse de début de cette zone . 
_ Charger le registre B avec le nombre de droites à tracer . 


Voici le listing : 


DROITE PUSH BC ; Sauvegarde de BC (nombre de droites) 
LD A , $14 ; Chargement de A avec la commande 14h 
LD BC , $400 ; B contient le chiffre 4 (4 paramètres) et 


C contient 0 car il n'y a pas d'octet de 
réponse attendu 


CALL $C92F ; Appel du sous-processeur 

POP BC ; On récupère le nombre de droites … 
DJNZ DROITE ; … afin de vérifier si l'on a terminé … 
RET ; … Si oui , on quitte la routine 


Remarquons la rapidité de tracé qui n'est pas désagréable . De plus , la 
routine $C92F incrémente automatiquement le registre HL … Sublime , non ?!! 


33 IMPLANTATION DE CARACTERES GRAPHIQUES , 


Cette routine va vous permettre de définir des caractères  affichables 
pour les codes ASCII 80 à 9F et EO0 à FF. 

L'intérêt est de pouvoir définir un nombre de caractères en une seule fois 
dès que la table est entrée en mémoire . 


Le principe est le suivant … Une table des codes est repérée par le 
registre HL . Cette table doit être structurée de la manière suivante : code du 
caractère ASCII , 8 codes , code du caractère ASCII , 8 codes , etc … 

Le registre B doit être préalablement chargé avec le nombre de caractères 
à implanter . 

La routine utilisée (commande N°1A du sous-processeur) se charge 
d'implanter les codes aux endroits nécessaires 


Voici le listing : 
CRECAR LD B , nbre de car. ; Chargement de B avec le nombre de 
caractères à implanter 


LD HL , TCAR ; Chargement de HL avec l'adresse de 
début de la table des codes 


CC PUSH BC ; Sauvegarde du nombre de caractères 

LD A , $lA ; Chargement de A avec le N° de la com- 
mande 

LD BC , $900 ; B contient le nombre de paramètres (9) 
et C le nombre d'octets attendus (0) 

CALL $C92F ; Appel du sous-processeur 

POP BC ; On récupère le nombre de caractères … 

DJNZ CC ; … afin de vérifier si l'on a terminé … 

RET ; … Si oui , on quitte le sous-programme 

TEST R RS_? 


Tester les curseurs est une chose fréquente quand l'on programme en 
BASIC . Afin de pouvoir les utiliser aussi sous ASSEMBLEUR , nous vous avons 
préparé une petite routine très fiable 


Le principe est encore une fois de passer par le T6834 (Nous l'avons pris 
en affection depuis que nous le connaissons si bien …) grâce à la routine $C92F. 
Notons que les registres À , HL et BC sont modifiés . 
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Voici le listing : 


FLECHE  CALL $COBD ; Les tampons clavier et sous-processeur 
sont vidés 
LD A , $82 ; Commande N°2 du T6834 (STICK) 
LD BC , $1 ; Un paramètre est attendu en retour 
PUSH DE ; Sauvegarde de DE (si nécessaire ...) 
LD DE , BUF ; Le registre DE est chargé avec l'adresse 


d'un tampon utilisateur que vous devez 
définir . Ce tampon sert à sauvegarder la 
réponse du T6834 


CALL $C92F ; Appel du T6834 

LD A , (DE) ; On charge A avec la réponse contenue 
dans le BUFfer utilisateur 

POP DE ; On récupère DE 

CP $33 ; Curseur droit pressé ?. 

JR Z , DROITE ; Si oui , saut à une routine de traitement 

CP $37 ; Curseur gauche pressé ? 

JR Z , GAUCHE ; Si oui , saut … 

CP $35 ; Curseur bas pressé ? 

JRZ,BAS ; Si oui , saut … 

CP $31 ; Curseur haut pressé ? 

JR Z , HAUT ; Si oui , saut … 

RET ; Le registre A contient la valeur $30 si 


aucun curseur n'a été pressé … 


3.5 TESTER UNE TOUCHE PARTICULIERE … 


Cette petite routine va vous exposer la manière de tester une touche 
quelconque du clavier … 


Le sous-processeur est encore mis à contribution grâce à sa routine N°28 
(en hexadécimal , toujours ..) . Les registres À , HL , BC et DE sont modifiés 
après l'emploi de cette routine : n'oubliez pas de les sauvegarder si nécessaire ! 

N'oubliez pas de charger le registre A avec la touche que vous désirez 
tester avant de lancer le sous-programme ! 

Après que la routine se soit exécutée , une touche aura été pressée si le 
drapeau Z du registre A est à 1 . Sinon , il sera normalement à O0 … 
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Voici le listing : 


TOUCHE LD HL , BUF + 4 ; Le registre HL est chargé avec l'adresse 
du buffer utilisateur augmenté de 4 
LD (HL) , A ; Le contenu de A (code de la touche à 
tester) est stocké dans le buffer 
LD A , $28 ; À est chargé avec la commande N°28 
LD BC , $101 ; B contient le nombre de paramètres (1) 


et C le nombre d'octets attendus (1) 
Le registre DE est chargé avec l'adresse 
du buffer augmenté de 2 unités 

CALL $C92F ; Appel du T6834 

LD A , (DE) ; À est chargé avec la réponse du T6834 
stockée dans le buffer . Si A = 0 , la 
touche a été pressée sinon À = $FF 

Les indicateurs Z et S "ressortent" … 
Retour 


LD DE , BUF +2 


OR A 
RET 


MMENT CREER UNE TEMPORISATION _? 


Enfin une routine permettant la temporisation .…. C'est normal que 
tout le monde aime ce genre de programmes : ce sont les seuls permettant de 
faire une sieste bien méritée !! 


Le principe est tellement simple qu'il n'y a rien à expliquer !! Les 
instructions utilisées sont spécifiques au Z-80 en général donc pas de problème 
pour les comprendre 

Le registre BC est chargé avec la durée de temporisation désirée … Bon 
somme !! 


Voici le listing : 


DELAY DEC B ; Décrémentation du registre B 
LD A ,B ; Chargement de A avec B pour effectuer 
une comparaison 
OR C >: Test. 
JR NZ , DELAY ; S'il fait encore nuit , on continue à tempo- 
riser !! 
RET ; Le jour se lève : fini de dormir ! 
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" (LED 


Vous allez enfin pouvoir réaliser votre vieux rêve : réécrire la 9ème 
symphonie de Beethoven sur CANON X-07 .. Epoustouflant !! 


La routine $C2DF est utilisée pour créer toute sorte de sons : elle est un 
peu compliquée à utiliser mais les résultats en valent la peine ! 

Tous les registres sont modifiés . Un seul registre à charger : IX . Il doit 
impérativement contenir l'adresse de votre mélodie (codée sous formes de 
notes , bien entendu , dans une zone mémoire) . Le tampon est structuré sous 
cette forme : note , durée , note , durée …. Dès que la valeur 255 est 
trouvée, le X-07 sait qu'il n'y a plus de note ensuite … 


Le saxophone est mort … Vive le X-07 !! (Enfin … presque !!) 


Voici le listing : 


MUSIC LD A , (IX + $0) ; À est chargé avec l'octet pointé par IX 
CP $FF ; Dernière note ? 
RETZ ; Si oui , on quitte la symphonie … 
LD E , A ; Le registre E contient la note 
LD B , (IX + $1) ; Le registre B contient la durée 
LD D ,0 ; Le registre D est nul 
LD C,D ; Le registre C est nul (un octet de gagné !) 
INC IX ; Incrémentation double du registre IX 
INC IX ; afin de parvenir à la note suivante 
LD HL , RTMU ; On va empiler l'adresse de retour pour la 
PUSH HL ; routine $C2DF (caractéristique ...) 
PUSH BC ; Sauvegarde de BC 
PUSH DE ; Sauvegarde de DE 
POP IY ; IY contient la durée 
POP HL ; HL contient la note 
CALL $C2DF ; Appel de la routine musicale 
RTMU LD HL , ($0E) ; Compteur de note 
LD A ,H ; Test du registre HL : est-il bien égal à O ? 
OR L ; Suite du test … 
JR NZ , RTMU ; On "boucle" si la note est en cours … 
JR MUSIC ; … Sinon , on passe à la note suivante … 
Mozart en herbe , c'est le moment de prouver vos talents !! Au début de 


la page suivante , un bel exemple vous est donné … 
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Exemple de mélodie : 


AIRI1 DB 17,4,17,4,17,4,13,16,0,16,15,4 
DB 15,4,15,4,12,16,0,16,17 ,4,17 ,4 
DB 17,4,17,4,13,4,18 ,4,18,4,18 ,4 
DB 17,4,25,4,25,4,25,4 ,22 ,16 , 255 


Remarques : si la note est égale à O0 , un bruit est généré . D'autre part , n° 
oubliez pas le "terminateur" (255). 


3.8 FONCTIONS SET, RESET , POINT, 


Ces fonctions indispensables au "graphiste canoniste" sont très faciles à 
obtenir via le sous-processeur que vous devez commencer à bien connaître 
Après toutes les manipulations faites avec lui , il faut bien reconnaître qu'il 
facilite beaucoup la vie du programmeur . En effet , vous n'avez guère besoin 
de connaître toutes les méthodes de travail de l'ensemble des routines ! 


Il suffit donc d'envoyer le numéro de la commande désirée (Soit $11 
pour SET , $13 pour POINT et $12 pour RESET) au T6834 grâce à notre 
inaltérable routine $C92F . Avant d'utiliser la routine , choisissez une zone 
buffer et stockez-y les deux coordonnées du PIXEL (X et Y) sur lequel vous 
désirez travailler 


Voici le listing : 


SET LD A , $11 ; Chargement de A avec la commande $11 
JR SETI ; Saut à la routine de traitement 
POINT LD A , $13. ; Chargement de A avec la commande $13 
JR SETI ; Saut … 
RESET LD A , $12 ; Chargement de A avec la commande $12 
SETI1 LD HL , BUF ; Chargement de HL avec l'adresse du 
buffer utilisateur 
LD BC , $200 ; B contient le nombre de paramètres 
envoyés (2) et C le nombre d'octets 
attendus (en l'occurence , 0) 
JP $C92F ; Le traitement graphique se fait … 
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Un logiciel informatique a obligatoirement besoin de données pour 
travailler Une grande partie de ces données sont encore entrées au clavier et 
la fonction "INPUT" joue un rôle déterminant dans ces stockages … Nous vous 
proposons donc de la recréer ! 


En effet , la routine va créer la fonction " INPUT "message ";A$ " d'une 
manière très simple . Quelques fonctions de la ROM sont utilisées telles que 
$FEF7 et $EBF2 : l'une affiche un message et l'autre permet d'obtenir l'entrée 
clavier . Notons que le message ne doit pas dépasser 20 caractères dans le cas 
présent 


Voici le listing : 


ACQMES LD HL , MESSAGE ; HL contient l'adresse du message qui doit 
être impérativement terminé par un 0 . 


CALL $FEF7 ; Le message est affiché … 

CALL $EBF2 ; L'entrée clavier est obtenue . 

INC HL ; On incrémente HL pour obtenir le début 
du tampon d'entrée étant donné que la 
routine $EBF2 fait pointer HL sur cette 
adresse - 1. 

LD DE , BUF ; DE est chargé avec l'adresse du tampon 
utilisateur 

LD C ,0 ; C = compteur 

ACQ LD A , (HL) ; Transfert vers tampon interne 

LD (DE) , A ; Suite du transfert 

OR A ; Test du O0 situé en fin de "A$" 

JR Z , ACQ2 ; Saut à ACQ2 si réalisé … 

INC HL ; Caractère suivant 

INC DE ; L 

INC C ; incrémentation de C 

LD A ,C ; Longueur maximale atteinte ? 

CP 20 ; Test sur la longueur (ici 20) 

JRC , ACQ ; Si la longueur est atteinte , on sort de la 
boucle … 

ACQ2 LD A ,C : 

CP 0 ; Si la chaîne est vide , on recommence … 

JR Z , ACQMES ; 

LD (LONG) , A ; Sauvegarde de la longueur 

RET ; Retour 
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3.10 ENTREE D'UN NOMBRE, 


Nous allons continuer sur notre lancée en vous détaillant une routine 
équivalente …. Cette fois , par contre , vous pourrez entrer uniquement des 
nombres entiers . La fonction correspond donc à " INPUT "message ";A% ". 

Notons l'utilisation de routines permettant d'économiser un certain 
nombre d'octets …. En l'occurence , les routines RST $10 et $F595 
permettent quantité d'applications : nous vous conseillons de bien les étudier 
dans "Les MYSTERES du X-07" car elles vous permettront de gagner beaucoup 
de place en mémoire ! 


Voici le listing : 


ACQNUM LD HL , MESSAGE : 


CALL $FEF7 ; Affichage du message et entrée clavier 

CALL $EBF2 ; 

RST $10 ; Teste si un nombre a bien été entré … 

CALL $F595 ; Transfère le nombre dans le registre DE 
11 TI TI DE_LA -71 


En envoyant une chaîne de codes déterminés à l'imprimante 
graphique , vous pouvez la contrôler aisément à partir de l'ASSEMBLEUR et lui 
faire réaliser de très belles choses … 

La routine $CEF7 émet le contenu du registre A vers la X-710 . La chaîne 
de codes doit être , comme à l'accoutumé , stockée dans un buffer . 


Voici le listing : 


LD HL , CHAINE ; HL est chargé avec l'adresse du début de 
la chaîne 
LPRINT LD A, (HL) ; À est chargé avec l'un des codes de la 
chaîne 
OR A ; Test afin de savoir si le dernier code a été 


RETZ ; envoyé vers la X-710 

PUSH HL ; Sauvegarde de l'adresse des codes 
CALL $CEF7 ; Transmission du code contenu dans A 
POP HL ; On récupère l'adresse du prochain code 
INC HL ; Incrémentation du registre HL 

JR LPRINT ; On continue le cycle … 
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Voici un exemple de chaîne à transmettre à la X-710 : 
18 , 83 , 48 , 13 , 67 , 49 , 77 , 48 , 45 , 54 , 13 , 65 , 13 , 10 , O0 


18 : mode graphique 

83 , 48 : taille "SO" 

13 : retour chariot 

67 , 49 : couleur "C1" 

77 , 48 , 45 , 54 : commande "M 0,-6" --> Remontée de 6 points 
13 : retour chariot 

65 : lettre A (mode texte) 

13 : retour chariot 

10 : commande Line Feed (déroulement du papier) 

00 : fin des commandes 


Ce chapitre se termine donc sur cette utilisation de notre traceur national, 
en l'occurence , la X-710 . 


Nous osons espérer que nous avons été assez clair … Si c'est bien le cas , 


vous allez bientôt pouvoir vous précipiter sur les multiples applications situées 
en fin d'ouvrage . 


Mais auparavant , intéressons-nous à un certain crochet d'erreur situé 
quelque part dans la zone système … c'est fou ce que l'on peut faire avec !! 
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41 INTRODUCTION, 


Il existe sur le X-07 plusieurs crochets ("hoocks") permettant de prendre 
le contrôle du CANON dans certaines situations . On peut ainsi modifier les 
réactions de la machine face à une erreur particulière . 

Pour illustrer ce phénomène , nous allons écrire deux routines dérivant 
ce crochet d'erreur : la première permettra d'obtenir un message d'erreur en 
français et la deuxième rajoutera une instruction BASIC supplémentaire au 
X-07 . Notons au passage que le CLUB C7 a abondamment parlé de ce crochet 
dans ses gazettes 2 et 5 


411 LE PRINCIPE , 


Lorsque le CANON rencontre une erreur , il exécute un sous-programme 
spécial … Mais avant cela , il exécute la routine située à l'adresse ABh. 
Normalement , on trouve l'instruction RET (code C9h) à cette adresse … Rien ne 
nous empêche de placer un saut à cette adresse afin de détourner ce crochet 
sur l'une de nos petites routines ! 

Notons que notre tâche se trouve simplifiée car le numéro de l'erreur se 
trouve dans le registre E du microprocesseur 


412 LES MESSAGES D'ERREUR EN FRANCAIS 


Nous allons donc en premier lieu écrire une routine permettant d'afficher 
les messages d'erreur en français . Afin de simplifier le programme , nous nous 
limiterons aux trois erreurs les plus courantes 

__ Erreur de syntaxe : code 2 . 

_ Erreur de débordement : code 6 

__ Erreur de numéro de ligne indéfini : code 8 


Le travail à réaliser en est d'autant simplifié car traiter tous les cas 
d'erreur possibles aurait demander une table assez grande contenant tous les 
types d'erreurs . Ici , la routine exposée est relativement simple 
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4,2 LE DETOURNEMENT DU CROCHET, 


Pour détourner ce crochet , on implante à la place du RET situé en 
ABh un JUMP XXXX correspondant au début de notre routine personnelle de 


traitement . Après avoir implanté cette "dérivation" , on teste au début du 
logiciel si le type d'erreur qui survient correspond bien aux erreurs que l'on 
désire traduire en français . Si c'est effectivement le cas , on continue à 


exécuter notre routine sinon on revient au crochet (grâce à un RET) et le X-07 
affiche l'erreur initiale 


Voici le listing de ce programme : 


S'I ; Messages d'erreur en français 

10 ‘ ORG $1C00 ; Les lignes 10 à 60 représentent la 
20 ‘ LD A.$C3 ; modification du crochet d'erreur 
30 ' LD ($AB).A ; situé à l'adresse $AB . 

40 ‘ LD HL.#DB ; EXEC &H1CO00 mettra en place la 
50 ‘ LD ($AC).HL ; nouvelle adresse de traitement des 
60 ‘ RET ; erreurs . 

70 ‘ #DB LD AE ; Le type d'erreur est chargé dans A 
80 ' CP $2 ; Si l'erreur qui survient est syntaxi- 
90 ‘ JR Z.#E3 ; que , on saute à #E3 . 

100 ' CP $6 ; Si l'erreur qui survient est de type 
110 ‘ JR Z.#E6 ; "débordement" , on saute à #E6 . 
120 ' CP $8 ; Si l'erreur qui survient est de type 
130 ‘ JR Z.#E8 ; numéro 8 , on saute à #E8 . 

140 ‘ RET ; Autre erreur : retour … 

150 ‘ #E3 LD HL.#SY ; Les lignes 150 à 180 constituent le 
160 ‘ CALL $FEF7 ; Sous-programme de traitement des 
170 ‘ CALL #NO ; erreurs de syntaxe . 

180 ‘ JP $F23D ; Saut à l'attente-curseur . 

190 ‘ #E6 LD HL.#DE ; Les lignes 190 à 220 constituent le 
200 ‘ CALL $FEF7 ; Sous-programme de traitement des 
210 ‘ CALL #NO ; erreurs de débordement 

220 ‘ JP $F23D ; Saut à l'attente-curseur 

230 ‘ #E8 LD HL.#ID ; Les lignes 230 à 260 constituent le 
240 ‘ CALL $FEF7 ; Ssous-programme de traitement des 
250 ‘ CALL #NO ; erreurs numéro 8 

260 ‘ JP $F23D ; Saut à l'attente-curseur 


270 ‘ #SY DEFM erreur de syntaxe ; Message d'erreur 
280 ‘ DEFB $0A , OD , 00 
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290 ‘ #DE DEFM débordement en ; Message d'erreur 
300 ‘ DEFB $0A , OD , 00 

310 ‘ #ID DEFM ligne indéfinie 
320 ‘ DEFB $0A , OD , 00 

330 ‘ #NO LD HL.#NI 

340 '‘ CALL $FEF7 

350 ‘ LD HL.($01DB) 

360 ‘ CALL $BB98 

370 ‘ RET 

380 ‘#N1 DEFM LIGNE 

390 ‘ DEFB $20,00 

400 ‘] ; Fin du programme 


; Message d'erreur 


; Affichage du numéro de ligne 


Afin d'obtenir une présentation plus claire , on fait passer le X-07 à la 
ligne après l'affichage de chaque type d'erreur et ceci en envoyant les 
caractères OA et 0D . L'adresse 1DBh contient le numéro de la dernière ligne 
exécutée 

Notons que la routine $F23D place le X-07 en mode ‘“attente-curseur" 
Ceci a pour effet d'arrêter le programme pour ne pas retourner au traitement 
d'erreur originel 

Voici pour terminer cet exemple , le listing BASIC de cette routine : 


10 REM Messages d'erreurs en français 

20 FOR I = &H1C00 to &H1C00 + 140 

30 READ A$ : POKE I, vAL ("&H"+A$) 

40 NEXT 

50 PRINT "EXEC &H1CO00 sera nécessaire au détournement des futures 
erreurs" . 

60 DATA 3E ,C3,32,AB,0,21,C,1C,22,AC,0,C9,7B,32,0,1B, 
FE ,2,28,9,FE,6,28,11,FE,8 

70 DATA 28 ,19,C9 ,21,41,1C,CD ,F7 ,FE ,CD ,79,1C ,C3,3D,F2, 
21,56,1C,CD ,F7,FE, CD , 79, 1C 

80 DATA C3 ,3D,F2,21,67,1C,CD,F7,FE,CD,79,1C,C3,3D,F2, 
45 ,52,52,45 ,55 , 52 , 45 , 20 

90 DATA 44 , 45 , 20 , 53 , 59 , 4D , 54 , 41,58 ,45,A,D,0,44 ,45, 
42 ,4F ,52,4 ,45 ,4D , 45 ,4E , 54 , 20 

100 DATA 45 ,4E ,A,D,0,4C,49 ,47,4E , 45 , 20 , 49 ,4E , 44 ,45, 
46 ,49 ,4E , 49,45 ,A,D,0,21, 86 

110 DATA 1C , CD , F7 ,,FE , 2A , DB ,1 ,CD ,98 , BB ,C9 ,4C , 49 ,47 ,4E, 
45 ,20 ,0 
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Nous allons maintenant mettre en place une instruction supplémentaire , 
la commande "CARTE" . Sa fonction sera d'engendrer un “Create system ?" 
permettant de vider la carte 

Le principe de la routine est de détourner le drapeau d'erreur puis de 
vérifier que l'erreur survenue est bien une erreur de syntaxe . Ensuite , il faut 
vérifier que cette erreur a bien été engendrée par le mot "CARTE" . Si ce n'est 
pas le cas , on retournera au traitement normal d'erreur . 

Comment tester lettre par lettre le mot "CARTE" ? Grâce au registre HL 
qui pointe sur le caractère suivant l'erreur . 

Voici le listing de la routine : 


S'I ; Début de la routine . 
10 ' LD A.$C3 ; Les lignes 10 à 50 détournent le 
20 ‘ LD ($AB).A ; crochet d'erreur . 


30 ‘ LD HL.#DB 
40 ‘ LD ($AC).HL 


50 ‘ RET 

60 ‘ #DB LD A.E ; Si ce n'est pas une erreur de syntaxe 
70 ' CP $2 ; on continue le traitement normal . 
80 ' RET NZ 

90 ‘ CALL #DE ; Les lignes 90 à 230 vérifient la 
100 ‘ CP "E" ; justesse du mot "CARTE" … 

110 ‘ RET NZ 

120 ‘ CALL #DE 

130 ' CP "T" 

140 ‘ RET NZ 

150 ‘ CALL #DE 

160 ‘ CP "R" 

170 ‘ RET NZ 

180 ‘ CALL #DE 

190 ‘ CP "A" 

200 ‘ RET NZ 

210  CALL #DE 

220 ' CP "C" 

230 ‘ RET NZ 

240 ‘ JP $C4D1 ; On saute à la routine de "Create .." 
250 #DE DEC HL 

260 ‘ LD A.(HL) ; HL pointe sur le mot qui a entrainé 
270 ‘ RET ; l'erreur … 

280 ‘'] 


Voici le listing BASIC de cette petite routine : 


10 ‘ Instruction CARTE 

20 FOR I = &H1C00 TO &H1C00 + 51 

30 READ A$ : POKE I , VAL ("&H" + A$) 

40 NEXT 

50 EXEC &H1C00 

60 DATA 3E ,C3,32,AB,0,21,C,1C,22,AC,0,C9,7B,FE,2,C0, 
CD ,31,1C,FE,45,C0,CD,31,1C,FE,54,C0,CD ,31,1C,FE, 
52,C0,CD,31,1C,FE,41,C0,CD,31,1C,FE,43,C0,C3,D1, 
C4 ,2B,7E , C9 


4 ! " " 


Pour terminer ce chapitre , voici une petite routine rajoutant l'instruction 
"PAINT" au BASIC du X-07 . Cette commande aura uniquement pour fonction 
d'afficher le message "PAINT" à l'écran . 

Le drapeau de "PAINT" (instruction utilisée en vidéo avec la X-720) se 
situe en 99h . Nous allons procéder de la même manière que pour le 
détournement des erreurs en plaçant à cette adresse un JP XXXX nous 
envoyant à l'adresse de notre routine 


Voici le listing de ce programme : 


Ss'I ; Début du programme . 
10 ‘ ORG $1C00 ; Les lignes 10 à 70 détournent le 
30 ' LD A.$C3 ; crochet d'erreur sur notre routine 


40 ‘ LD ($99).A 
50 ‘ LD HL.#DB 
60 ‘ LD ($9A).HL 


70 ‘ RET 

80 ‘ #DB PUSH HL ; Les lignes 80 à 110 affichent le 
90 ‘ LD HL#ME ; message … 

100 ‘ CALL $D5B0 

110 ‘ POP HL 

120 ‘ RET ; On continue le programme … 


130 ‘ #ME DEFM PAINT 
140 ‘ DEFB $00 
150 ‘ ] 


Les applications de ces crochets d'erreur sont multiples comme vous avez 
pu le constater … Nous allons maintenant nous plonger dans la partie "HARD" 


de cet ouvrage … 
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4ème PARTIE 2 


…. Où L'on continue par du HARD 


ENTR RTIE 
& _INTERRUPTIONS 


Ce chapitre sur les entrées/sorties et les interruptions constitue la 
quintessence du CANON … En effet , le X-07 est très réputé pour la multiplicité 
de ses entrées/sorties et nous avons pensé nous aventurer un peu sur ce 
terrain relativement inexploré 

Notons que le CLUB C7 a édité un très bon dossier ("Le X-07 s'évade") 
sur le sujet : notre machine adorée se branche alors sur une lampe , un réveil , 
un magnétophone..… et les commande remarquablement !! Avis aux amateurs 
aimant les sensations fortes !! 


1 LES _INTERRUPTION 


3.1.1 GENERALITES , 


Les interruptions constituent des méthodes  d'entrées/sorties 
un peu particulières . En effet , les entrées/sorties programmées accusent 
deux inconvénients majeurs 

Elles font perdre du temps au microprocesseur étant donné qu'il doit 
examiner l'état de tous les périphériques 
Après avoir déterminé le périphérique devant entrer en contact avec 


lui , le Z-80 exécute le programme correspondant . Malheureusement , ce 
temps de réponse peut devenir critique si un périphérique véloce a besoin du 
processeur … C'est le cas ici avec l'écran ou les entrées/sorties sérielles 


Une solution a été découverte en reliant chaque périphérique à une 
ligne d'interruption . Le Z-80 examine à la fin de chaque cycle-machine 
(instruction) ces lignes d'interruption . Si un arrêt est demandé , le 
microprocesseur sauvegarde l'adresse à laquelle il travaillait afin 
d'exécuter la routine correspondant à l'interruption demandée 

De plus , quand une interruption est en cours , il ne faut peut être pas 
qu'une autre interruption l'interrompe .…. Pour éviter cela , il est possible 
d'interdire les interruptions en leur donnant un niveau de priorité 
différent . 
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A ce moment là , l'interruption possèdant le plus haut degré de priorité 
ie pourra être stoppée par aucune autre mais , par contre , cette interruption 
ourra interrompre toutes les autres !! 


iL2 LES TYPES D' INTERRUPTION . 
Le CANON X-07 est doté de deux types distincts d'interruptions 


_ Les interruptions A , B , C ayant chacune un niveau défini de 
responsabilités 
* INT A : interruption provenant du sous-processeur T6834 
Le programme d'interruption correspondant se situe en C799h . 
* INT B : interruption sérielle . Un saut est provoqué à l'adresse C7A3h. 
* INT C : cette interruption n'est utilisée que quand le X-07 est relié à la 
X-720 . Une horloge reliée à cette ligne d'interruption oblige le 
CANON à afficher le curseur . 


__ L'interruption NMI n'est pas utilisée sur le X-07 . C'est l'interruption 
possédant le plus haut niveau de priorité … En effet , NMI se traduit en anglais 
par "No Masquable Interrupt" , ce qui signifie bien évidemment 
“interruption non masquable" . Quelque soit la tâche effectuée par le X-07, 
il suffit qu'un signal d'interruption parvienne sur la ligne NMI pour que le 
CANON exécute immédiatement le programme correspondant . Notons que 
cette interruption très particulière va nous être très utile 


iL3 LE TRAITEMENT DES INTERRUPTIONS , 


Une fois l'interruption acceptée , il faut impérativement satisfaire "le 
demandeur" sans perdre le fil du programme en cours . Ceci implique une 
sauvegarde des registres dans la pile , le minimum étant de sauver le 
compteur ordinal (PC) afin de pouvoir y placer l'adresse de la routine 
d'interruption à exécuter 

Après avoir effectué le traitement demandé par le périphérique , le 
microprocesseur peut reprendre tranquillement le fil de son autre programme 
au point où il l'avait quitté grâce à l'adresse sauvegardée sur la pile 
(correspondant à PC) . La figure exposée à la page suivante vous permettra de 
bien assimiler le processus 


Les interruptions peuvent être déconnectées ou reconnectées à l'aide de 
deux ordres du NSC 800 : EI et DI. 
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IGURE 4 : 
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Mémoire 


Le registre PC arrive au 
sommet de la pile … 


L'adresse de la routine est 
chargée dans le registre PC … Routine 
exécutée 


Une fois l'interruption terminée 
le sommet de la pile est chargé dans 
PC .…. le programme reprend son cours 


Mémoire 
INTERRUPTION TERMINEE 


LE TRAITEMENT DE 


INTERRUPTION 
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En traduisant ces deux abréviations , on obtient Enable Interrupt 
(interruption autorisée) et Disable Interrupt (interruption interdite) 

En général , on interdit les interruptions lorsque l'on commence le 
traitement d'une interruption de faible priorité afin de ne pas être dérangé par 
un autre arrêt . Mais n'oubliez surtout pas de tout remettre en ordre dès que la 
partie critique de votre routine est terminée grâce à l'instruction EI 


514 L'UTILISATION DES INTERRUPTIONS SUR LE X-07 , 


Le fonctionnement du X-07 est intimement lié à un sous-processeur 


nommé très poétiquement "T6834" .. Nous en avons abondamment parlé 
depuis le début de cet ouvrage et nous allons utiliser la ligne d'interruption B 
afin de détecter les interruptions provenant de ce sous-processeur . Par 


exemple , un appui sur la touche BREAK ou OFF constitue une interruption 

En fait , les interruptions provoquent des sauts à quatre adresses 
différentes suivant le type d'arrêt demandé . Ainsi 

* INT A provoque un saut en 3Ch. 

* INT B provoque un saut en 34h. 

* INT C provoque un saut en 2Ch. 

* NMI provoque un saut en 66h 


On peut donc écrire à ces adresses soit le programme que l'on désire faire 
effectuer au X-07 , soit un "JP XXXX" afin que le Z-80 aille exécuter le 
programme se trouvant à cette adresse 

Sur le CANON , cette deuxième solution a été pronée et l'on trouve 
logiquement JP C7A3 , JP C799 , etc … 


Cette solution va nous rendre un grand service étant donné que ces 
adresses se trouvent en RAM .. Nous allons donc pouvoir les modifier à volonté 
et découvrir véritablement ce qui s'y passe ! 

En reprenant l'exemple du T6834 , nous nous rappelons que ce dernier 
envoie un signal sur l'une des pattes du NSC 800 lorqu'il désire communiquer 
Si l'interruption est prise en compte , le microprocesseur ira effectuer la 
routine siégeant à l'adresse 3Ch . Or , l'adresse 3Ch contient l'instruction de 
saut JP C799 …. Par conséquent , le programme d'interruption continuera sa 
course à l'adresse C799h ! 

De même , si une interruption parvient sur la patte NMI du NSC 800 , ce 
dernier exécutera les instructions situées à l'adresse 66h …. Mais , notre bon 
vieux processeur trouvera la directive RET (code C9h) à cet endroit et 
reprendra l'exécution normale du logiciel étant donné que l'interruption NMI 
n'est pas utilisée sur le CANON . Justement , nous allons détourner cette 
interruption et jour un peu avec les entrées/sorties … 
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5.1.5 APPLICATIONS PRATIQUES , 


Les interruptions étant généralement déclenchées par des périphériques, 
ce sont des pattes spécialisées du microprocesseur qui se chargent de leur 
détection . Nous allons essayer de les utiliser afin de bien comprendre ce qui se 
passe lors d'un arrêt demandé 

Pour cela , il nous faut un peu de matériel … Par exemple , un doigt pour 
retirer le couvercle du bus (prise située à l'arrière du X-07 : port d'extension) , 
une paire de lunettes pour lire le brochage (page 127 du guide de l'utilisateur) 
et un petit morceau de fil électrique pour nous livrer à quelques liaisons 
coupables ! 


L'expérience est relativement simple . Les bornes correspondant aux 
interruptions À et NMI se trouvent sur le connecteur arrière du 
X-07 . Après avoir changé les adresses de saut d'une de ces routines , nous 


provoquerons un saut en reliant la broche correspondante au +5 volts ou au 0 
volt , selon la tension requise 


Pour cette expérimentation , nous utiliserons l'interruption NMI . En 
effet , cette borne est sensible au niveau haut (+5 V) alors que INT A est 
sensible au niveau bas (0 V) , donc plus "sensible" électriquement . Le 
brochage du connecteur est décrit à la page suivante : la broche NMI 


correspond à la broche 20 ; le +5 V est présent sur les broches 39 et 40 . 
Dès que nous désirerons créer notre interruption , il nous suffira d'un 
"bref" contact entre ces deux bornes. 


s151 I ds éri 


Nous allons mixer un peu de BASIC et de langage machine uniquement 
pour une application amusante 

Le but de la routine sera de faire compter le X-07 de © à 
10000... De plus, dès qu'une interruption se produira , il devra 
émettre un BEEP sans s'arréter de compter !! Enfin du multitâche 
sur X-07 !! 


En fait , la routine va être composée de deux petits programmes 


_ Le premier va se charger de modifier l'adresse de saut du NMI afin que 
le X-07 puisse exécuter notre programme dès que nous relierons nos deux 
bornes 

_ Le deuxième s'occupera d'émettre un BEEP . Pour cela , l'écriture du 
caractère "BELL" suffit (code ASCII N°7) . 
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Le programme écrit en langage machine est lui aussi très simple . Ceux 
qui ne possèdent pas d'ASSEMBLEUR pourront se servir du petit programme 
BASIC joint aux listings . 

Dès que le message "court-circuitez les broches" s'affiche , vous devez 
relier les bornes 20 et 39 (ou 40) du connecteur d'extension … Un simple 
toucher devrait être suffisant ! Vous entendrez (à condition de ne pas avoir 
coupé le BUZZER) distinctement le BEEP avec un compteur défilant ! 


Vous pouvez remarquer que la méthode de changement d'adresse des 
interruptions ne diffère pas du changement des “"Hoocks" lors d'une 
modification du traitement des erreurs 


LÉ SUN dense 


Ce deuxième exemple va traiter d'un problème très particulier 
l'interaction de deux routines écrites en langage machine 

Nous allons interrompre le traitement d'une routine LM afin d'en 
effectuer une autre et , dès cette deuxième routine terminée , nous 
reprendrons le cours de la première jusqu'à la prochaine interruption ! Tout 
ceci va être réalisé grâce à notre fidèle petit fil électrique 


Le programme va afficher à l'écran tous les codes ASCII 
compris entre O0 et 255 . Lorsque vous court-circuiterez les broches 
39 et 20 , un message s'affichera mais le défilement ne s'arrêtera 
pas pour autant ! 

Pour des raisons de simplification , les codes affichés s'échelonnent de 0 à 
255 … Par conséquent , ne vous étonnez pas si aucun caractère n'apparait 
durant les premières secondes ! De plus , une temporisation située entre les 
lignes 215 et 320 du listing source permet de ralentir l'affichage des 
caractères. Si elle n'était pas présente , vous ne pourriez rien distinguer à 
l'afficheur tellement la routine est véloce ! Cette routine est d'ailleurs utilisée 
dans le deuxième programme pour que le message puisse rester visible à 
l'écran suffisamment longtemps 


Nous conseillons aux amateurs de se procurer un connecteur 
correspondant à la prise d'extension du X-07 . Ensuite , vous pourrez 
câbler un petit bouton poussoir entre les bornes 39 et 20 .. Le 
court-circuit à effectuer en sera d'autant facilité car vous pourrez remarquer 
qu'un contact trop prolongé entre les deux bornes peut fausser le bon 
déroulement des opérations. 
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FI 


RE 


00000000000000000000 


00000000000000000000 


Les broches 20 et 39 doivent être reliées 


00000000000000000000 


00000000000000000000 


HEMA_ DU BOUTON-P OIR 


: LES DIFFERENTS BR 


HAGE 


Pour ceux qui ne possèdent pas d'ASSEMBLEUR , le logiciel BASIC charge 


les deux parties du programme : la première détourne les interruptions et la 
deuxième est constituée par les deux petites routines 
Dès que le premier programme est chargé en mémoire , vous pouvez 


commencer à envoyer des interruptions au X-07 


Les bricoleurs chevronnés pourront envisager par exemple de construire 
une petite horloge qui générerait un "top" toutes les "X-ièmes" de secondes . Ils 
auront la possibilité de simuler un fonctionnement en multitâche du 
X-07 ! 

Pour cela , il suffit de placer à l'adresse de l'interruption le deuxième 
programme que l'on désire exécuter . Une solution intéressante consiste à 
récupérer le signal CLOCK présent sur la borne 29 et de le diviser à l'aide de 
bascules successives ou de compteurs afin d'obtenir un signal de fréquence 
moindre (de l'ordre de 10 à 5) . Ce signal sera alors à renvoyer sur la broche 
20 du connecteur 


Pour ceux qui désirent améliorer le système du bouton-poussoir , le 
problème des effets de retour peut être résolu en introduisant une bascule 
dans le système 


5.16 CONCLUSION . 

La détection d'interventions extérieures ouvre un champ 
d'applications gigantesque au programmeur : détection de niveaux , 
surveillance d'un appartement , détection d'une sonnerie téléphonique en vue 


de l'édification d'un serveur , etc 


L'emploi des interruptions reste un moyen relativement simple pouvant 
être dédié à la résolution des problèmes liés à l'interfaçage des périphériques 
rapides . On peut noter que l'interruption NMI est très utilisée dans le but de 
relier le microprocesseur à un lecteur de disquettes ou à un circuit d'accès 
direct en mémoire (DMA) 


Les personnes ne se sentant pas une âme bricoleuse peuvent quand 
même simuler le fonctionnement multitâche en utilisant l'interface vidéo 
Mais attention ! La durée du programme d'interruption est critique et si la 
X-720 envoie une impulsion avant que le programme ne soit terminé 
RESET général est à prévoir !! 


ue 
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5 REM 2 PRG EN LF 45@ ?’CALL $CFSE 
SR @ POP HL 
'ORG $inea 47Q *POP DE 
DAS OO OOOONCEAXX [480 POP BC 
XX CHent du suus da NM x|490 POP AF 
500 ?’RETI 
LD A.$CS 51Q ?HME DEFNM INTERUPTION 2533 
LD ($6G).n 520 ?’DFFB $20 
LD HL.#DB :YDESUT GJ 2eme PROG. 538 ?] 
LD ($67).H: 
HRET 


PRXÉIINENENIN EEE NN CENTER XX 
XX e fier srogrumme * 


OR KOK AO OO OO 

ORG $1590 

LD 4.$@a 

#B1 INC 4 

LD HL.+$2502 

LD C$881.H 

'CALL $CI8FE 

CA ATP 

JR #B] 

XX TEMPO YxY 

"HTP PUSH AE 

? PUSH BC 

LD À.$7F 

7#B2 LD B.$FF 18 REM LES 2 

*#B3 DEC B 28 FOR I=8&HIA2S 10 &HiA8B 
JR Nz. #83 30 READ A$:POKE ji ,UALC"8&H"+AS$):NEXT | 
*DEC"A 90 RESTORE 08 

JR Nz.#B2 69 FORI=&HI1B0@ TO &tii34C 
POP BC 7@ READ A$:POKEI,UAL C'RH+ASJINEXT 
POP AF 99 EXEC8&HIABU:EXEC8HiB2@ 

?RET 500 DATASE,CS,32,66,00,21,20,1B,22 
2 OXOKOHOE HOKHHOH IOHH ON HO ICHO NONOK OIOOOCK 521 DATA67,0,C9 

XX le 2eme programme * 700 DATASE,@,3C,21,2,5,22,B8,0 
2 OXOKOKHOIOK HO KO KORKOK CHE CO OO CO OC 781 DATACD,BE,C1,CD;,11,1B 
>#DB PUSH AÀF 710 DATAIB,FI1,FS,CS,SE,?7F,6,FF,5 
? PUSH BC 711 DATA20,FD,3D,26,F8 
PUSH DE ?72@ DATACI,F1,C9,FS,CS,DS,ES,21,1 
? PUSH HE 2721 DATAI,22,B8,0,21 

LD HL.$9191 730 DATASC,1B,CD,F7,FE,CD,11,18,CD 
LD C$B8).HL 231 DATASE,CE,E1,D1 
?LD HL.H4ME 74@ DATACI,F1,ED,4D,49,4E,54,45,52 
?CALL $FEF? 741 DATASS,50,54,49,4F,4E,208,21 
?CALL #4TP 750 DATA21,21,;21,0@ 


FIGURE 6 : LES 2 PROGRAMMES FIGURE 6 : FIN 


CR: 5 REM LE BEEP 


20 *ORG $1BQQ 18 FOR I=8&HIB2G TO 8&HiB12 

30? XX KR XIE EI IAOX | 28 READ AS:POKE I, VALC'RHU+AS 
40 XX CHent du saut pour NMI x| 3Q NEXT 

50? HAINE OR RON IR OOOORX | 48 CLS:PRINT'COURT-CIRCUITEZ LES 
60 LD À.$C3 BROCHES" 

70 LD (#66). 58 FOR I1=1T0120000 

80 LD HL.HDB 68 LOCATEI1B:2:PRINTI 

89 LD ($67).HL 78 NEXT 

12a ?RET 180 DATASE,C3,32,66,80,21,C,15 
112 7 XXX HAINE RREREXE | 11 DATA22,67,8, CS 

122 ‘xx LA ROUTINE DE BEEP x| 192 DATASE,7,CD,BE,Ci,EeD,43 


130? HN OO OOOOOEEX 
143 *HDB LD A.$7:X"BELL=CHR$(O7) 

159 *CALL $CI1BE 

169 ?’RETI 

170 ’] 


FIGURE 7 : LE BEEP !! FIGURE 7 : FIN 


5.2 LES ENTREES/SORTIES DU  X-07, 


Une des particularités du CANON est représentée par son 
exceptionnelle ouverture vers le monde extérieur . En effet , quatre 
prises très importantes trônent sur trois des côtés de notre machine : la prise 
magnétophone , série , parallèle et la prise d'extension 

On peut facilement utiliser le port d'extension du bus du X-07 car 
l'Assembleur Z-80 comprend parfaitement les ordres IN et OUT permettant 
d'utiliser cette prise 

Par contre , les prises série et magnétophone sont beaucoup plus mals 
loties … Leur programmation passe en effet par l'ACIA et nécessite de ce fait 
une très bonne connaissance de l'organisation interne du CANON 

Il existe pourtant une solution intéressante pour simplifier l'utilisation de 
ces différents ports : il suffit d'employer les routines ROM correspondant à la 
fonction INIT #n afin d'ouvrir un fichier d'entrées/sorties . Dans ces conditions, 
plus rien ne s'oppose à une utilisation très performante du X-07 en matière 
d'entrées/sorties !! 

En effet , l'utilisation simultanée de la prise série et du Langage Machine 
va permettre de réaliser quantité d'applications originales . Tenez-vous prêt !! 


5.2.1 LES DIVERS DISPOSITIFS , 


Avant de passer en revue les divers dispositifs d'entrées/sorties existant 
sur le X-07 , notons que si l'entrée de mots se fait toujours à une vitesse fixée 
par le dispositif relié au X-07 , la durée entre l'entrée de deux mots peut être 
considérablement réduite 


5211 L lispositif nil l'ordre INIT_# 


Il existe cinq dispositifs directement assignables par l'ordre INIT #n 


* GPR : ce dispositif correspond à l'imprimante graphique . Lorsqu'il est 
initialisé , la taille des caractères est fixée à 2 et les codes "retour chariot/fin 
de ligne" sont envoyés à la X-710 . 

* LPT : ici , seuls les codes "retour chariot/fin de ligne” sont envoyés sur 
la prise parallèle (Centronics) 

* KBD : la mémoire tampon du clavier est remise à O0. 

* MEV : le fichier dont le nom est spécifié est recherché . S'il existe , les 
pointeurs de lecture et d'écriture sont placés au début du fichier . La taille 
étant alors ignorée , il est donc inutile de la spécifier . Par contre , si le fichier 
n'existe pas , il est créé avec la taille spécifiée . 

* CON : ce dispositif ne fait strictement rien . 
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5212 I ii itif 


Ces dispositifs sont au nombre de cinq : CASI , CASO , OPT , COM , PRT. 

Dans ces différents cas , on assigne à une des sorties spécifiées le 
dispositif d'entrées/sorties désiré . On règle le générateur de Bauds à la vitesse 
désirée ainsi que le mode de transmission 

Notons que toutes ces fonctions ne sont réalisées que pour le dispositif 
COM . En effet , les réglages de cadence de transmission et de mode se font 
automatiquement pour les quatre autres systèmes 


521.3 L'initialisati 


Tous les dispositifs sont initialisés de la même façon à l'aide de 
l'appel à un sous-programme unique . Il faut impérativement spécifier lors 
d'un appel le dispositif que l'on désire utiliser . 

Lors de l'appel à ce sous-programme , le X-07 va rechercher dans une 
table à quel dispositif il doit accéder . Dès qu'il a résolu cette première phase , 
il programme ses interfaces de la manière demandée . Notons qu'une 
recherche dans la mémoire morte permet de retrouver les noms des dispositifs 
initialisables 


Cette table constitue un catalogue des systèmes existants . Prenons 
l'exemple de "CASI" ; à l'adresse E782h , nous allons trouver en hexadécimal 
les données suivantes : 43 41 53 49 BA 00 02 12 ES OA EO 35 DE OF El 

*43:C * BA :: * 12, E5 , 0A , EO , 35 , DE , OF, El : 

* 41 : A * 00 : N° du données correspondant aux sous- 

*53:5 * 02 : dispositif programmes liés au dispositif . 

*49:I 


C'est en précisant l'adresse du numéro du dispositif que nous pouvons 
spécifier le dispositif que l'on désire mettre en oeuvre lors de l'appel au 
sous-programme d'initialisation commun à tous les systèmes 

Pour cela , nous devons utiliser une partie spécialisée de la zone système 
du X-07 située à l'adresse 2C5h . Lors de l'ouverture du dispositif , on 
emploiera le registre DE afin de pointer sur le numéro du dispositf à initialiser. 
Le X-07 placera alors à l'adresse 2CS5h l'adresse du dispositif dans le tableau et 
sauvegardera les registres HL , BC et DE à chaque fois que l'on fera appel au 
système en question 

Notons que cinq dispositifs peuvent être ouverts au maximum . En effet , 
la zone allant de 2C5h à 2E8h ne peut contenir que 40 octets : deux octets 
pour l'adresse du tableau et six octets pour les trois registres à sauver et ceci , 
cinq fois seulement . Voilà pourquoi on ne peut utiliser un numéro de 
fichier supérieur à 5. 
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La table en ROM est codée de cette manière 


Nom du dispositif . 

Numéro du dispositif . 

Deux octets pour le sous-programme de sortie d'un octet 

Deux octets pour le sous-programme d'entrée d'un octet 

Deux octets pour le sous-programme d'initialisation 

Quelques octets sont laissés pour un sous-programme optionnel 


Après avoir passé en revue tous les dispositifs existants , nous allons 
pouvoir dans l'étude de routines d'entrées/sorties 


5.2.2 LES FICHIERS CASO & CAST,, 


Nous allons réaliser une petite routine de sauvegarde et de récupération 
de données sur K7 . Pour réaliser cette application , nous avons besoin de 
plusieurs choses 


Initialiser le fichier de sortie pour la sauvegarde 
_ Déterminer un ‘“délimiteur" qui nous indiquera le début et la fin de 
chaque donnée 
Initialiser le fichier d'entrée pour recharger les données 
_ Un test vérifiant que nous sommes bien en présence du début des 
données 
Une mémoire tampon nécessaire à la sauvegarde des données lues 
_ Un test vérifiant que nous sommes bien en présence de la fin des 
données 


De plus , nous devrons dans ce cas signaler une erreur d'entrée si un 
problème survenait . Nous utiliserons dans ce but les indicateurs du registre F 
(C et F) nous indiquant la présence d'une erreur 

Enfin , nous devons tenir compte du fait que la routine ROM d'entrée de 
données n'attend pas les données : une boucle de temporisation est donc 
fortement conseillée 


5.2.2,1 Le programme de sortie des données , 
L'adresse de tableau de CASO est E796h . Nous devons donc placer cette 


valeur dans le registre DE lors de l'appel au sous-programme d'ouverture de 
fichier (Adresse E6A8h) . Nous obtenons donc le listing de la page suivante 
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10'T 
20 ‘ ORG $1C00 


30 ‘ LD DE.$E987 ; Adresse de tableau du dispositif CASO . 

40 ‘ LD IY.$02C5 ; Adresse de la partie spécialisée de la RAM . 
50 ‘ LD A.$00 ; Mise à 0 du registre A . 

60 ‘ CALL $E6A8 ; Appel d'ouverture du dispositif . 

70 ‘ RET 

80 '] 

Si vous faites un PRINT #1,"A" , le X-07 émettra le son caractéristique 


d'une sauvegarde de K7 , ce qui confirme bien que la sortie K7 a bien été 
initialisée 

I1 nous faut ensuite démarrer le magnétophone car celui ci n'est pas 
automatiquement commandé par la routine de sortie de caractères à laquelle 
nous allons faire appel . Pour ce faire , vous devez inscire le chiffre 1 dans la 
bit de poids faible du port de sortie F4h , en faisant OUT ($F4),1 . 

Il est maintenant nécessaire de laisser au magnétophone le temps de 
stabiliser sa vitesse . Une petite routine de temporisation conviendra 
parfaitement à cet usage … Elle utilise la paire de registres BC . Elle sera 
ppelée autant de fois que nécessaire 

De plus , nous ferons précéder la sortie de nos données par trois chiffres 
"0" afin de pouvoir les retrouver à la fin et nous les ferons suivre par trois 
"$FF" . Lors de la sortie des données , le double registre HL est employé afin de 
pointer sur les données à sortir . Voici le résultat de nos périgrinations : 


10'T 

20 ‘ ORG $1C00 
30 ‘ LD DE.$E796 
40 ‘ LD IY.$02CS5 


50 ‘ LD A.$00 

60 ‘ CALL $E6A8 

65 ‘ IN A.($F4) ; Le démarrage du magnétophone nécessite la 
66 ‘ SET 0.A ; mise à 1 du bit DO du port F4 (lignes 65 à 
70 ‘ OUT ($F4).A 3:70). 

80 ‘ CALL #TP ; Temporisation … 


90 ‘ CALL #TP 
100 ‘ LD DE.$02CS5 


110 ‘ CALL $E827 ; On assigne la sortie à CASO 
120 ‘ LD A.$00 ; Les lignes 120 à 170 signalent le début des 
130 ‘ CALL $E88F ; données par un triple 0 


140 ‘ LD A.$00 
150 ‘ CALL $E88F 
160 ‘ LD A.$00 
170 ‘ CALL $E88F 
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180 ‘ LD HL.#DD ; Les lignes 180 à 230 constituent la sortie 
190 ‘ #ST LD A.(HL) ; des données 

200 '‘ CP $00 

210 ‘ JR Z#TE 

220 ‘ CALL $E88F 

225 ‘ INC HL 

230 ‘ JR #ST 

240 ‘ #TE LD A.$FF ; Les lignes 240 à 290 signalent la fin des 
250 ‘ CALL $E88F données par un triple 255 … 

260 ‘ LD A.$FF 
270 ‘ CALL $E88F 
280 ‘ LD A.$FF 
290 ‘ CALL $E88F 
291 ‘ CALL #TP 
292 ‘ IN A.($F4) 
293 ‘ RES O.A 

294 ' OUT ($F4).A 
300 ‘ RET 

310 ‘ #TP PUSH BC 
320 ‘ LD B.$00 
330 ‘ #E1 LD C.$FF 
340 ‘ #E2 DEC C 
350 ‘ JR NZ.#E2 
360 ‘ DEC B 

370 ‘ JR NZ#E1 
380 ‘ POP BC 

390 ‘ RET 

400 ‘ #DD DEFB $01 , 02 , 03 , 04 , 05 , 06 , 00 ; données . 
410 '] 


Les lignes 291 à 294 constituent l'arrêt du 
magnétophone 


Les lignes 310 à 390 constituent la boucle 
de temporisation . 


Voici le listing BASIC de cette routine : 


10 FOR I = &H1C00 TO &H1C00 + 103 

20 READ A$ : POKE I , VAL ("&H" + A$) 

30 NEXT I 

40 PRINT "EXEC &H1C00 POUR DEMARRER LE PROGRAMME" 

50 DATA 11,96 ,E7,FD,21,C5,2,3E,0 ,CD , A8 ,E6 , DB , F4, CB, 
C7,D3,4,CD,54,1C,CD,54,1C,11,CS,2,CD,27,E8,3E,0, 
CD, 8F ,E8 ,3E ,0 ,CD ,8F,E8 ,3E,0,CD,8F,E8,21,61,1C,7E, 
FE,0,28,6,CD,8F,E8,23,18,FS5,3E,FF,CD,8F,E8,3E,FF, 
CD ,8F,E8 ,3E,FF,CD ,8F ,E8 , CD ,54,1C , DB , F4, CB ,87 ,D3, 
F4,C9,C5,6,7F,E,FF,D,20,FD,5,20,F8,C1,C9,1,2,3,4, 
5,6,0 
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De plus , on utilise le sous-programme de sortie de caractères situé en 
E88Fh . Celui-ci est commun à la sortie des données pour tout périphérique 

Si l'on désire travailler avec le magnétophone , le premier dispositif étant 
la K7 , il est impératif de faire appel au sous-programme E827h en plaçant 
dans le registre DE la valeur 2CSh . 

Par contre , pour assigner le deuxième dispositif , on placera dans le 
registre DE l'adresse 2CSh + 8 (8 octets = 2 octets pour l'adresse de tableau + 6 
octets pour les trois registres) , c'est à dire 2CDh. 

On peut donc initialiser plusieurs dispositifs et passer de l'un à l'autre en 
assignant chaque fois la sortie au dispositif voulu . On peut ainsi entrer des 
données sur la prise série du CANON et les sortir sur l'imprimante parallèle ou 
entrer des données au clavier et les sortir sur l'écran du MINITEL . 


222 1 : chat 1 nn 


Nous allons maintenant utiliser CASI pour récupérer les données 
sauvegardées précédemment . Pour ce faire , il faut d'abord initialiser le 
dispositif CASI comme dispositif d'entrée 

Ensuite , nous lirons les données parvenant sur la prise K7 jusqu'à 
trouver le triple O . Les données arrivant ensuite sur la prise seront celles 
recherchées et ce , jusqu'au triple FFh . Afin de simplifier le programme , nous 
ne tiendrons pas compte des erreurs d'entrées/sorties . Notons que les 
personnes désirant quand même traiter ces erreurs le peuvent … En effet , les 
bit C et Z positionnés à 1 indiquent des problèmes de chargement : à vous de 
sncocter la routine de traitement d'erreurs 


Sur le même principe que précédemment , l'adresse de tableau de CASI 
st E787h . On fait donc appel au même programme d'initialisation 

En ce qui concerne l'entrée des données , nous ferons appel à une routine 
spécialisée de la ROM du X-07 située en E8D4h . Cette routine contient 
ile-même un appel à la routine "ABORT" permettant de stopper le logiciel 
ans passer par la touche "ON/BREAK" . 

La temporisation n'est pas utile ici car les données arrivent de la K7 . Par 
contre , vous devez prêter attention à la durée du traitement entre l'entrée de 
haque donnée …. Si ce dernier est trop long , vous risquez de rater une ou 
)usieurs données ! 

Voici le "source" de ce programme : 


10 'T 

20 ‘ ORG $1C00 

30 ‘ * INIT #1 , "CASI:" ; Les lignes 30 à 70 initialisent le dispositif 1 
40 '‘ LD DE.$E787 ; en tant que "CAS" . 


50 LD IY.$2C5 
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60 
70 ‘ 


80 


LD A.$0 
CALL $E6A8 


90 ‘ IN A.($F4) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


" SET O.A 
" OUT ($F4).A 
" * On assigne CASI: 
" LD DE.$2C5 
" CALL $E827 
" * Entrées des données ; 
" #E1 CALL $E8D4 ; 
" JR NZ.#E1 
" CALL $E8D4 
"JR NZ.#EI1 
" CALL $E8D4 
"JR NZ#EI 
" LD HL.$1B00 
" #E2 CALL $E8D4 
" CP $FF 
"JR Z.#FI 
" LD (HL).A 
"INC HL 
" JR #E2 
" #FI CALL $E8D4 
" CP $FF ; 
"JR Z.#F1 
" LD A(HL) 
"INC HL 
" JR #E2 
" #F1 CALL $E8D4 
" CP $FF 
"JR Z.#F2 
" LD A.(HL) 
"INC HL 
" JR Z.#E2 
" * Arrêt magnétophone 
" #F2 IN A.($F4) 
" RES O0.A 
" OUT ($F4).A 
" RET 


* Démarrage du magnétophone 


Le triple O est recherché des lignes 150 à 
210 … 


Les lignes 220 à 280 constituent la 
recherche de la fin des données … 


Si le code suivant le premier $FF n'est pas 
$FF , on écrit le code dans la mémoire 
(lignes 290 à 320) . 


On incrémente le pointeur et on continue le 
chargement … 

Si le deuxième code est $FF , on vérifie le 
troisième … lignes 350 à 400 . 
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Voici le listing BASIC de cette routine : 


10 FOR I = &H1C00 TO &H1C00 + 82 

20 READ A$ : POKE I , VAL ("&H" + Af) 

30 NEXT 

40 PRINT "EXEC &H1C00 pour démarrer …." 

50 DATA 11,87 ,E7 , FD ,21,C5,2,3E,0,CD , A8 ,E6 , DB , F4,CB, 
C7 ,D3 ,F4,11,CS,2,CD ,27 ,E8 , CD , D4 , E8 , 20, FB , CD , D4 , E8, 
20 , F6 , CD , D4 , E8 ,20,F1,21,0,1B ,CD , D4,E8 ,FE ,FF,28 ,4, 
77,23,18 ,F5 , CD , D4 ,E8 ,FE ,FF,28 ,4,7E ,23,18 , EA , CD , D4, 
E8 ,8F,FE ,FF,28 ,4,7E ,23 ,18 , DF, DB , F4,CB , 87 , D3 , F4 , C9 


Les méthodes employées pour tester le début et la fin de l'enregistrement 
peuvent vous paraître un peu rustiques mais la rapidité prime . On préfèrera 
donc faire les tests les uns après les autres plutôt que d'utiliser une boucle . Le 
calcul de saut pour le microprocesseur risquerait de vous faire perdre des 
informations 

Les données entrées se retrouvent après l'exécution de cette routine les 
unes à la suite des autres à partir de l'adresse 1B00h . N'attendez pas une 
fiabilité exemplaire de ces deux petits programmes … En effet , aucun test ne 
permet de détecter des erreurs d'entrées/sorties . Le X-07 peut très bien 
entrer une donnée pour une autre sans que rien ne le prédise 

Nous ne développerons pas ici de routines plus performantes … En effet , 
celles-ci existent déjà dans la ROM du CANON . Mais rien ne vous empêche 
désormais d'employer la prise magnétophone pour vous fabriquer , par 
exemple , un digitaliseur très simple de sons 


5 IER 


Nous allons dans ce paragraphe initialiser l'imprimante graphique comme 
premier dispositif . Mais afin d'éviter de tomber dans la médiocrité des 
répétitions intempestives , nous allons initialiser en même temps le clavier 
comme fichier numéro 2 . De cette façon , le X-07 recopiera sur l'imprimante 
toutes les touches pressées sur son clavier 

Nous avonc choisi le clavier comme dispositif d'entrée et non la prise 
série car cette dernière fait l'objet d'un programme complet . Mais rien ne vous 
empêche de le faire en tenant compte de la transcription des signaux 
provenant par exemple d'un MODEM ou d'un MINITEL . 

Pour réaliser cette application , il vous faut l'adresse de tableau des 
dispositifs (GPR --> E7B2h et KBD --> E778h) . 


Nous placerons lors de l'initialisation dans le registre DE l'adresse de base 
de la RAM (2CS5h) pour le premier dispositif et l'adresse 2CDh pour le 
deuxième système . De plus , l'initialisation de KBD va vider la mémoire 
tampon du clavier , ceci nous évitant de l'accomplir … 

Les routines d'initialisation des dispositifs ne se distinguent donc pas des 
précédentes mis à part pour KBD . Notons que l'on peut aussi utiliser le 
dispositif LPT comme système de sortie (imprimante CENTRONICS) . Dans ce 
but , il suffit de remplacer la valeur E7B2h par E7F8h . Voici le listing : 


10'T 
20 ‘ ORG $1C00 ; Les lignes 20 à 70 constituent l'initialisation 
30 ‘ * INIT #1,"GPR:" ; du dispositif 1 … 


40 ‘ LD DE.$E7B2 
50 ‘ LD IY.$02C5 


60 ‘ LD A.$0 

70 ‘ CALL $F6A8 

80 ‘ * INIT #2,"'KBD:" ; Les lignes 80 à 120 représentent l'initialisa- 
90 ‘ LD DE.$E778 ; tion du dispositif n°2 . 

100 ‘ LD IY.$02CD 

110 ‘ LD A.$0 


120 ‘ CALL $E6A8 

130 ‘ * Assignation de KBD ; Entrées sur la console … 
140 ‘ #BL LD DE.$2CD 

150 ‘ CALL $E827 


170 ‘ CALL $E8D4 ; Entrée d'une touche … 

175 ‘ PUSH AF 

190 ‘ LD DE.$2C5 ; Les sorties se font sur l'imprimante … 
200 ‘ CALL $E827 

205 ‘ POP AF 

206 ‘ CP $0E ; Si on appuie sur CTRL N , on arrête . 
207 ‘ RET Z 

210 ‘ CALL $E88F ; Sinon , écriture sur l'imprimante . 
220 ‘ JR #BL 

230 ‘] 


Voici le listing BASIC de cette routine : 


10 FOR I = &H1C00 TO &H1CO00 + 48 

20 READ A$ : POKE I, VAL ("&H" + A$) : NEXT 

40 PRINT "EXEC &H1CO00 pour démarrer .." 

50 DATA 11 ,F8 , E7 , FD ,21,C5,2,3E,0 ,CD , A8 ,E6 ,11,78 ,E7, 
FD ,21,CD,2,3E,0,CD , A8 ,E6,11,CD,2,CD,27,E8,CD, D4, 
E8 ,F5 ,11,C5,2,CD,27,E8,F1,FE,E,C8,CD ,8F,E8 ,18 ,E7 
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Ce programme pourrait être plus rapide en utilisant directement le port 
Fih sur lequel se retrouvent les touches pressées . Mais le but de cette routine 
fant d'employer les routines d'entrées/sorties , ceci se révélerait inutile ! 

De plus , cela nous conduirait à tester si les données se trouvent bien sur 
k port Fih alors que la routine E8D4h gère automatiquement cela . En effet 
ele ne rend la main que si une donnée est présente . 


» 


32,4 UT 


Avec le contenu de ce paragraphe, vos routines vont prendre le Concorde 
pour Rio de Janeiro !!! En effet , en langage machine , les possibilités de 
raitement deviennent grandioses car le temps séparant l'entrée et la sortie de 
dœux mots peut être considérablement réduit ! 

Nous allons nous limiter à deux programmes , l'un servant à écrire sur le 
MINITEL et l'autre servant à y lire … 

Lors de l'initialisation du dispositif , il est important d'indiquer la vitesse 
& transmission et le mode ACIA . Par conséquent , nous allons employer deux 
rgistres du NSC 800 … La vitesse de transmission sera chargée dans le registre 
IX et le mode ACIA dans le registre B . De plus , l'adresse de tableau du 
dispositif COM est E7A4h. 


Le premier programme inscrira à l'écran du MINITEL un message après 
avoir effacé l'afficheur . Dans cette optique , on pointe le registre HL sur le 
message . Après l'affichage de chaque lettre , si le caractère suivant est un 0 , 
k message sera terminé et la routine s'arrêtera 

Pour effacer l'écran , il suffit d'envoyer le code 12 qui correspond à la 
commande CLS du MINITEL . On utilise toujours le même dispositif 
d'initialisation commun à tous les systèmes 

Voici le listing de cette routine : 


10'T 

20 ‘ ORG $1C00 

30 '‘ LD DE.$E7A4 ; Dispositif COM activé 
40 '‘ LD A.$0 

50 ‘ LD B."G" ; Mode G de l'ACIA 

60 ‘ LD IX.&1200 ; Vitesse : 1200 bauds 


70 ‘ LD IY.$2C5 

80 ‘ CALL $E6A8 
85 ‘ LD DE.$2C5 

86 ' CALL $E827 
87 ‘ LD HL.#ME 

90 ‘ #ET LD A.(HL) 


; Ouverture … 


; Ecriture du message …. 
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91 ‘ CP $0 

92 ‘ JR Z.#FI 

100 ' CALL $E88F 

105 ‘ INC HL 

106 ‘ JR #ET 

120 ‘ #FI RET 

124 ‘ #ME DEFB &12 

125 ‘ DEFM Cela marche bien comme cela …. 
126 ‘ DEFB $00 

130 ‘ ] 


Voici le listing BASIC : 


20 FOR I = &H1C00 TO &H1C00 + 63 

30 READ A$ : POKE I , VAL ("&H" + A$) : NEXT 

50 PRINT " EXEC &H1CO00 pour démarrer .." 

60 DATA 11, A4,E7 ,3E,0 ,06 , 47, DD , 21, B0 ,4,FD,21,C5,2, 
CD , A8 ,E6,11,CS5,2,CD,27,E8,21,27,1C,7E,FE,0,28,6, 
CD ,8F,E8 ,23,18,FS5 ,C9,C ,43,41,20 , 4D , 41,52 ,43 ,48, 
45 , 20 , 42 , 49 , 45 , 4E , 20 , 43 , 4F , 4D , 4D , 45 , 20 , 43 ,41 ,0 


Occupons-nous pour finir ce paragraphe de la lecture des données 
provenant d'un périphérique sériel . Cela occasionne peu de changements . En 
effet , l'initialisation demeure identique . Le changement réside dans l'appel de 
la routine de lecture au lieu de celle de l'écriture , la donnée se trouvant alors 
dans le registre A . Un appel à l'adresse C1BEh fait d'ailleurs apparaître cette 
donnée . Voici le listing de cette routine : 


20 'T 

30 ‘ ORG $1C00 

40 ‘ LD DE.$E7A4 ; Les lignes 40 à 90 initialisent leler fichier 
50 ‘ LD A.$0 ; à COM. 

60 ‘ LD B."G" 


70 ‘ LD IX.&1200 
80 ‘ LD IY.$2C5 
90 ' CALL $E6A8 


100 ‘ LD DE.$2C5 ; Les lignes 100 à 110 assignent l'entrée . 
110 ‘ CALL $E827 

120 '‘ CALL $E8D4 ; Caractère entré dans À . 

130 ' CALL $CIBE ; Caractère affiché à l'écran . 

140 ‘ RET 

150 ' ] 
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Voici le listing BASIC : 


20 FOR I = &H1C00 TO &H1C00 + 29 


30 READ A$ : POKE I, VAL ("&H" + A$) : NEXT 


50 PRINT " EXEC &H1CO00 pour démarrer … 


" 


60 DATA 11, A4,E7,3E,0,6 ,47, DD ,21,B0,4,FD,21,CS,2,CD, 
A8 , E6 ,11,CS ,2, CD , 27 , E8 , CD , D4 ,E8 , CD , DE , C1, C9 


52.5 CONCLUSION , 


Pour conclure ce chapitre , nous vous présentons le "DUMP" de la table 


trouvent placées l'adresse des sous-programmes des dispositifs 
et la liste d'adresses de tableau de chaque système 


mémoire où se 


Di itif Ad L C > 
RAM E7CE Mémoire RAM 
CON E7EA Console 
KBD E778 Clavier/écran LCD 
GPR E7B2 Imprimante graphique 
LPT E7F8 Imprimante CENTRONICS 
CASI E787 Entrée K7 
CASO E796 Sortie K7 
OPT E7DC Coupleur optique 
COM E7A4 Prise entrées/sorties série 
PRT E7C0 Imprimante série 
Après toutes ces émotions , nous allons pouvoir attaquer la X-720 … Nous 


“pérons que ce chapitre très important 
antrées/sorties vous aura apporté toutes 
ü longtemps !! 


concernant les interruptions et les 
les solutions dont vous réviez depuis 


Pour le moment , cap sur la vidéo “made in CANON" … 


L'_ INTERFACE __X-720 


Ce sixième chapitre est entièrement consacré à un périphérique 
relativement controversé : la X-720 ou , en termes simples , l'interface 
péritélévision . Comme son nom l'indique , elle permet de relier le X-07 à un 
poste équipé de la prise péritel 

Assez encombrante et non autonome , elle ajoute un regrettable "fil à la 
patte" au X-07 qui perd alors sa vocation de portable pour se consacrer au 
familial Malheureusement , le peu de logiciels , sur le marché , adaptés à 
cette interface n'ont pas révélé les intéressantes possibilités dont elle est 
pourtant dotée 

Nous allons à travers deux approches opposées (le HARD et le SOFT): vous 
exposer quelques mystères de la X-720 


1__L' APPR HE_" RD" 
6.1.1 Généralités _, 


La X-720 est architecturée autour d'un générateur d'affichage vidéo de la 
célèbre firme MOTOROLA , le MC 6847 . Mais ce processeur n'est pas seul : de 
la RAM et de la ROM se partagent ses faveurs ! 

La mémoire vive de six kilo-octets représente la capacité maximale 
du MC 6847 . Elle est présente sous la forme de trois circuits mémoire de deux 
kilo-octets chacun 

En ce qui concerne la mémoire morte, deux boitiers se partagent les 
fonctions . L'un contient les caractères affichables à l'écran et l'autre un 
interpréteur BASIC donnant accès à de nouvelles fonctions 


Une étude du diagramme de la X-720 met clairement en évidence la 
manière dont sont stockées les données présentes à l'affichage .…. Deux des 
circuits de la mémoire vive contiennent l'état d'un point tandis que le dernier 
circuit contient sa couleur 
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La communication entre le X-07 et la X-720 s'effectue via les ports 
d'entrée/sortie pour les échanges avec le MC 6847 . Par contre , les bus 


d'adresses et de données se chargent des communications avec la mémoire 
vive (VRAM) . 


Le plan détaillé de l'utilisation des ports d'entrée/sortie employés pour 
communiquer avec le X-07 est représenté par la figure numéro 9 . Voici les 
détails 


Adresses 80 à 8F : le processeur utilise ces adresses pour lire la CGROM.. 
Précisons que la CGROM constitue la ROM contenant le générateur de 
caractères. En fait , il s'agit d'une mémoire morte stockant les caractères sous 
forme binaire : le chiffre 1 signifie alors un point allumé et le chiffre O un 
point éteint . Nous pouvons remarquer que cette méthode est en tout point 
identique à la méthode de programmation des caractères redéfinissables 


Adr Il re) : les bits B1 à B4 ne sont pas utilisés . Par 
contre le bit FS mis à l'état bas permet au processeur d'effectuer un scrolling 
& l'écran . De plus , le bit INT constitue un bit d'interruption utilisé pour 
l'affichage du curseur . 


Adr n riture) : le bit FSR interdit ou autorise les 
nterruptions d'affichage du curseur (lorsque ce bit est à O , le curseur n'est 
ns affiché) . Le bit A/G est un drapeau de mode graphique . Le bit +1K 
modifie l'adresse de la VRAM (Ex : modification de l'adresse de la page vidéo 
ffichée) . Les bits GMO0 à GM2 constituent les drapeaux de sélection des 
des graphiques . Enfin , les bits GSSO et GSS1 sont des drapeaux divers . 


iL3 REPARTITON DE LA MEMOIRE VIDEO, 


La répartition de la VRAM se fait en fonction des différents 
nodes d'écran . A cause des divers modes de résolution et de la présence de 
lusieurs pages d'écran , l'adressage de la mémoire vidéo diffère d'un cas sur 
lautre 

En fait , pour chaque affichage , une partie d'un des trois circuits est 
tilisée . Les schémas présentés un peu plus loin vont vous permettre de 
connaître la mémoire occupée par chaque type de définition : les zones 
uchurées représentent la mémoire utilisée 
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77) User area 


MODE 1(M5=1) MODE 1(M5=0) MODE 2(M5=1) MODE 2(M5=0) 
PAGE 2 PAGE 3 PAGE 2 PAGE 3 
1C203 BCOO 1C203 8000 77 1C203 
81FF 
8FFF | 85FF 
8000 8400 
B1FF 77 
8200 |” 
83FF 87FF 
1C204 8400 1C204 8800 1C204 
87FF 88FF 
8800 8c00 
8BFF FFF 
1C205 9400 1C205 9000 1C205 
Q1FF 
ATTRIBUTE AL #3 ATTRI- 
97FF 93FF BUTE 
9000 9400 F7 
Et 77 ATTRIBUTE 
9200 
93FF 97FF 
MODE 3(M5=1) MODE 4(M5=1) MODE 5(M5=0) MODE 6(M5=0) 
PAGE 2 PAGE 2 PAGE 3 
8000 1C203 8000 1C203 8000 1C203 
FFF 83FF 8FF 
8000 8400 8400 


1C204 8800 


8BFF 8FFF SFFF 
9400 1C205 9400 1C205 9000 1C205 9000 W 1C205 
97FF 97FF 93FF C7) 93FF 
9000 9400 9400 


FE 
LU IRN NN 


93FF 93FF 


FIGURE 10 : MEMOIRE OCCUPEE 


En fait , à la lecture de ces schémas , il s'avère que l'adresse rencontrée 
par le processeur ne varie pas d'une page graphique à l'autre … En effet , le 
signal +1K (adresses 90 à 97 des entrées/sorties) est employé dans le but de 
modifier l'espace mémoire adressé . Les trois circuits de deux kilo-octets sont 
divisés en six segments de un kilo-octet chacun . Par conséquent , le passage 
d'une partie du circuit à une autre se réalise grâce au signal +1K provoquant 
ainsi le changement immédiat de l'image affichée à l'écran 

On devine la complexité de la gestion d'un tel système . En effet , pour 
afficher un point ou une lettre à l'écran , l'interpréteur doit calculer l'adresse 
des valeurs à modifier en fonction du mode et de la page écran : ceci 
explique la grande lenteur de l'interface X-720 ! 


De plus , cette réelle complexité rend très ardue l'utilisation des 
nombreuses routines qui existent dans la mémoire morte du X-07 . La 
programmation en langage machine de la vidéo , en faisant appel à ces 
utines n'offre donc que peu d'intérêt , étant donné la lenteur d'exécution de 
celles-ci . Il est préférable de se placer dans un mode donné et de créer des 
fonctions SET et RESET pour ce mode particulier . Vous pouvez utilement vous 
référer au programme "Le piège - version vidéo" présent au dernier chapitre 
il a été écrit en tenant compte de ces remarques 


Avant de passer au SOFT proprement dit , les electroniciens pourront 
admirer le plan détaillé du circuit de cette interface … Bon courage !! 
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L'interface X-720 possède donc six kilo-octets de mémoire vive (mémoire 
écran) implantée entre 8000h et 97FFh et quatre kilo-octets de mémoire 
morte implantée entre A000h et AFFFh (complément à l'interpréteur du 
CANON) . Cette RAM débute par le mot-clé “love” , recherché à chaque mise 
sous tension par l'interpréteur 

Derrière ce mot-clé bien connu de tous les canonistes , l'adresse AOCAh 
du sous-programme d'initialisation de la zone de communication (nouvelles 
fonctions : PAINT , COLOR , SCREEN et modification de la plage d'action des 
commandes PSET , PRESET , POINT , LINE , CIRCLE) est présente . 

Sans plus attendre , nous allons vous disséquer les points logiciels 
intéressants de cette interface 


6.2.1 LES POINTS D’ ENTREE 


Voici les points d'entrée des fonctions BASIC utilisables avec la X-720 : 


Fonctions Adresses 
SCREEN AAD2h 
SCREEN (X,Y) ABBDh 
COLOR AA73h 
PSET ABFBh 
PRESET ABF6h 
POINT AC14h 
LINE AC86h 
PAINT AD9Bh 
CIRCLE AED2h 
6,2,2 QUELQUES ADRESSES 


Le sous-programme d'initialisation implante dans la zone système du 
X-07 quelques valeurs que nous allons vous exposer … 


Adresses Commentaires 
B6h Page active . Si cet octet contient O0 , la page 1 est 
active . S'il contient 1 , la page 2 est active . 
B7h Page affichée . Si cet octet contient O , la page 1 est 


affichée . Par contre , s'il contient 1, c'est la page 2. 
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Adresses 


Dih 
15h 


4D7h 
4ESh 
4E6h 
4E7h 
4C6h 
4C8h 
4CAh 


Commentaires 


Mode d'écran actif . 

Si cet octet est à O , les caractères sont normaux . Par 
contre , s'il est à 1 , on obtient les caractères LCD . 
Caractères KANA . 

Couleur de l'avant-plan 

Couleur de l'arrière-plan 

palette en cours (0 ou 2) 

Xi , Yi : coordonnées initiales de la fonction LINE . 

Xf , Yf : coordonnées finales de la fonction LINE . 

dX , dY : déplacement pour la fonction STEP . 


62.3 FONCTIONS UTILISABLES 


Un désassemblage plus profond de la ROM de la X-720 a permis de 
mettre en lumière quelques fonctions utilisables dont voici les adresses 


Fonctions Adresses Commentaires 


LSETCUR A015h Le fonctionnement de cette routine est le 


même que pour la routine COAlh de l' 
écran LCD (Voir les Mystères) . 


INTC A050h Clignotement du curseur 

ECRIRAM A07Ch Teste si l'écriture de la VRAM est en cours. 
CONPUT A08Bh Sortie sur l'écran . 

RST 1 AOCAh Initialisation de la X-720 . 

MODECR A2C2h Changement du mode d'écran 


Si A=0 , le mode 1 est activé . 
Si A=1 , le mode 2 est activé . 


RETLCD A355h Retour à l'écran LCD en mode 1,1,1 . 
VIDEO A374h Affichage sur vidéo . 
PUTCAR A4D1h Emission d'un caractère vers l'écran 


De plus , la résolution étant différente pour chaque mode d'écran , les 
ingénieurs ont été obligés d'écrire des routines graphiques correspondant à ces 


définitions … Le problême 
table contenant l'adresse 
fonctions , en fonction 


a été résolu en plaçant entre A9FBh et AA73h une 
de chacun des sous-programmes d'exécution des 
du mode choisi . Ces sous-programmes se trouvent 


d'ailleurs stockés de A631h à A9FAh. 
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6.2.4 CODAGE DES PIXELS EN FONCTION DES DIFFERENTS MODES , 


Comme nous l'avons déjà souligné , les six modes possibles rendent le 
fonctionnement de l'interpréteur extrêmement complexe et ceci implique une 
grande lenteur d'exécution 

En effet , pour chaque fonction graphique , l'interpréteur doit décoder ou 
calculer les paramêtres puis , en fonction du mode écran et de la page active , 
il doit déterminer l'adresse du pixel à modifier 

Examinons de plus près le codage de ces pixels 


Mode __1 : le texte seul est affiché . On a accès à 16 lignes de 32 colonnes 
soit 512 octets . C'est le générateur de caractères de la X-720 qui permet 
d'afficher à l'écran le contenu (valeur ASCII) de chaque case mémoire 


Mode 2 : du texte ou du graphisme peuvent être affichés . Le générateur 
de caractères intervient quand du texte est affiché . Par contre , quand du 
graphisme est reproduit à l'écran , il faut calculer les coordonnées du pixel 
(six pixels par case mémoire + deux bits pour la couleur du pixel) . Vous 
pouvez utilement vous reporter à la figure exposée à la page suivante 


Modes 3 et 5 : ces deux modes sont graphiques . Les caractères sont 
dessinés pixel par pixel . Notons que les pixels sont adressés quatre par 
quatre et qu'un octet contient quatre pixels (donc , quatre couleurs possibles) 
La figure présentée à la page suivante explicite ce codage 


Modes 4 et 6 : ces deux modes sont aussi graphiques . Les remarques sont 
les mêmes en ce qui concerne les caractères . À chaque pixel correspond 
un bit de la mémoire écran : les pixels sont donc adressés huit par huit . En 
mode 4 , trois kilo-octets de la mémoire écran sont utilisés . D'autre part , 512 
octets des trois kilos restants sont utilisables en mode 2 . Enfin , en mode 6 , 
les six kilo-octets sont utilisés ; en effet , la définition est doublée 


Nous allons pouvoir utiliser nos connaissances toutes neuves de la X-720 
dans de petites routines qui vont bouleverser votre écran !! 
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3 TILITAIRE 


La première routine teste la présence de la X-720 dans le port 
d'extension de votre CANON 

Le principe est très simple : la routine va écrire une valeur déterminée en 
haut de la VRAM . En relisant l'octet , si la valeur est différente , un traitement 
d'erreur sera effectué car la X-720 n'aura pas été connectée 

La valeur 80h est stockée à l'adresse 8000h . En relisant cette 
adresse , la X-720 sera connectée si la valeur lue est 80h … Simple , non ? 


Ce petit programme permet d'effacer les huit dernières lignes de 
l'écran . La position du curseur est stockée aux adresses B8h et B9h comme 
pour le curseur de l'écran LCD . 

le principe est de simuler une coupure de l'écran et d'effacer tout ce qui 
se trouve en dessous de cette coupure par la routine CE9Eh . 


6.33 LA FONCTION SCREEN . 


Pour simuler cette fonction , la routine AB0O9h de la ROM a été mise à 
contribution . En effet , la page active - 1 est stockée dans le registre D et la 
page visuelle - 1 est contenue dans le registre E . 

Le mode écran a été placé dans le registre C et à l'adresse Dih. 


6.3.4 LA FONCTION COLOR . 


Deux méthodes sont possibles pour résoudre ce problème 

La première solution (la plus simple .….) consiste à charger le registre A 
avec le numéro de la couleur désirée puis d'appeler la routine COLOR par un 
CALL A637h. 

La deuxième méthode , reprise par la routine exposée , permet de 
changer la couleur du fond , des caractères et de la palette utilisée... 
Qui a dit que nous recherchions la complication ? … 


Les listings sont présents dans les deux pages suivantes … Ensuite , place 
aux applications !! 
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10'T 

20 ‘ ORG $1C00 

30 ‘ * TEST DE LA PRESENCE DE LA X-720 
40 LD A , $80 

50 ‘ LD ($8000) . À : * DEBUT VRAM 

60 ‘ LD A . ($8000) 

70 ' CP $80 

80 ‘ JP NZ . $F1AA : * SAUT EN ERREUR 
90 '] 


1C00 3E80 
1C02 320080 
1C05 3A0080 
1C08 FE80 
1COA C2AAFI 


LD A, 80 

LD (8000) , A 
LD A , (8000) 
CP 80 

JP NZ , FIAA 


10 REM TEST DE LA X-720 

20 FOR I = &H1C00 TO &H1COD 

30 READ A$ : POKE I , VAL ("&H" + Af) 

40 NEXT I 

50 DATA 3E , 80 
80 ,FE , 80 

60 DATA C2 , AA , F1 , C9 


, 32, 00,80 ,3A ,00, 


FIGURE 12 : TEST 


10'T 

20 ' ORG $1C00 

30 ‘ * EFFACEMENT PARTIEL DE L' ECRA 
40 ‘ CALL #SC : * EFFACEMENT DE LA 
50 ‘ CALL $CE9E : * 8ème LIGNE à LA FI 
60 ‘ LD HL . $108 

70 ‘ LD ($B8) . HL : * CURSEUR (C1 , L8) 
80 ‘ RET 

90 ‘ #SC LD A . $8 : * Ligne de roulement 
100 ‘ LD ($BB) . A 

110 ‘ LD A. &16 : * DERNIERE LIGNE 
120 ‘ LD ($BC) . A 

130 ‘ LD A . (&16-8+1) : * Nb de lignes 
140 ' LD ($BD) . A 

150 '‘ RET 

160 ‘ ] 


1C00 CDODIC 
1C03 CD9ECE 
1C06 210801 
1C09 22B800 
1C0C C9 
1C0D 3E08 
1C0F 32BB00 
1C12 3E10 
1C14 32BC00 
1C17 3A1000 
1C1A 32BD00 
1CID C9 


CALL 1C0D 
CALL CE9E 
LD HL , 0108 
LD (00B8) , HL 
RET 

LD À , 08 

LD (00BB) , A 
LD À , 10 

LD (00BC) , A 
LD A, (0010) 
LD (00BD) , A 
RET 


10 REM EFFACEMENT PARTIEL 

20 FOR I = &H1C00 TO &HICID 

30 READ A$ : POKE I , VAL ("&H" 

40 NEXT I 

50 DATA CD ,OD ,1C,CD,9E,CE,21, 
08 ,01 ,22 ,B8 ,00 , C9 

60 DATA 3E , 08 , 32 , BB ,00 ,3E ,10, 
32,BC ,00 ,3A ,10 , 00 

70 DATA 32 , BD , 00 , C9 


+ A$) 


FIGURE 13 : EFFACEMENT 


10'[ 

20 ‘ ORG $1C00 

30 * *** SCREEN *** 

40 LD A. $00 : * SCREEN 1 

50 ‘ LD ($D1) . À 

60'LDC.A 

70 ‘ LD A. $01 

80 ‘ LD D . À : * PAGE ACTIVE - 1 
90 ' LD E. À : * PAGE VISUELLE - 1 
100 ‘ JP $ABO9 

110 '] 


1C00 3E00 LD A, 00 
\1C02 32D100 LD (00D1) , A 
|1C05 4F LDC ,A 

l1C06 3201 LD À , 01 
l1C08 57 LD D ,A 

L1C09 5F LDE , A 


| did C309AB JP AB09 


| 


l10 REM *** SCREEN *** 
l20 FOR 1 = &H1C00 TO &H1COC 

(30 READ A$ : POKE I , VAL ("&H" + A$) 
40 NEXT I 

V50 DATA 3E , 00 , 32, D1,00 ,4F,3E, 
VU  o1,57 

V60 DATA 5F, C3, 09, AB 


FIGURE 14 : SCREEN FIGURE 15 : COLOR 


10'[ 
20 ' ORG $1C00 

30 ‘ *** COULEUR *** 

40 ' LD À. $01 

50 ' LD ($4E5) . À : * COULEUR LETTRES 
60 ' LD A. $02 

70 ‘ LD ($4E6) . À 

80 ' LD A . $00 

90 ‘ LD ($4E7) . À : * PALETTE O0 ou 2 
100 ‘ RET 

110 '] 


1C00 3E01 LD À , 01 


1C02 32E504 LD (04E5) , A 
1C05 3E02 LD A, 02 
1C07 32E604 LD (04E6) , A 
1C0A 3E00 LD A , 00 
1C0C 32E704 LD (04E7) , A 


1CO0F C9 RET 


10 REM *** COLOR *** 

20 FOR I = &H1C00 TO &H1CO0F 

30 READ A$ : POKE I, VAL ("&H" + A$) 

40 NEXT I 

50 DATA 3E , 01 , 32 , ES ,04,3E ,02, 
32 , E6 , 04 

60 DATA 3E , 00 , 32 , E7 , 04 , C9 


EMBARQUONS-WOUS … 


CAP : "LES À PPLICATIONS 1// 


Some PARTIT + 


… £t où 1 on termine ‘LOGICIEL ” / 


NTRODUCTION 


Enfin !! Nous voici arrivés à la dernière partie de cet ouvrage … Et quelle 
partie !! 

En effet , vous allez pouvoir vous régaler en savourant les délicieux 
logiciels que nous vous avons soigneusement préparés . Des utilitaires aux 
jeux , en passant par la poésie , le menu est particulièrement appétissant ! 

Mais sans plus attendre , voici quelques indications avant de vous 
précipiter corps et âme sur les pages suivantes 


Chaque logiciel est expliqué en détail : spécifications , principe 
utilisation, résultats et listing sont présentés le plus clairement possible 


, 


D'autre part , deux types de programmes sont exposés : ceux écrits 
exclusivement en BASIC et ceux composés en ASSEMBLEUR . 

Pour ceux qui ne possèdent pas la K7 (Ils sont très courageux ….) , nous 
vous conseillons de relire plusieurs fois les codes entrés car la moindre erreur 
peut être fatale ! Un "entreur de codes" leur servira à entrer les codes en 
mémoire et un "chargeur" leur permettra de sauvegarder et de récupérer le 
logiciel via une K7 . 

Evidemment , les personnes possédant la K7 n'ont pratiquement rien à 
faire … L'ordre CLOAD est à utiliser avec les logiciels écrits uniquement en 
BASIC et l'ordre CLOAD puis RUN pour les logiciels ASSEMBLEUR . En effet , 
ces derniers possèdent un chargeur BASIC qui permet de stocker les codes 
rapidement en mémoire …. D'ailleurs un RUN 100 permet de sauvegarder ces 
codes sur K7 afin de faire des copies protectrices . 


Nous conseillons à toutes les personnes ne possèdant pas la K7 de se la 
procurer au plus vite auprès des éditions NEPTUNE … En effet , en dehors de 
toute considération commerciale , il vaut mieux acquérir cette K7 car certains 
logiciels écrits en ASSEMBLEUR sont particulièrement longs 


Voilà !! Nous espèrons que vous apprécierez les divers logiciels présents 
dans cette dernière partie : ils sont diversifiés et utilisent pleinement les 
notions abordées dans le présent ouvrage . Analysez-les avec soin ! 
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MDATA 
APPLICATION 


La transcriptions en DATA d'une routine écrite en ASSEMBLEUR 
constitue une opération fastidieuse et génératrice d'erreurs ! Pourquoi ne pas 
confier ce travail à l'utilitaire "LMDATA" ? … 

L'utilisation de LMDATA est la suivante : 


_ Implanter la routine L.M. (à transcrire en DATA) en mémoire . 

_ Lancer LMDATA après l'avoir chargé dans le X-07 . 

_ Supprimer les lignes de DATA superflues puis les lignes 1 à 230 . Cette 
opération peut se faire à l'aide de la carte XP-140 (commande DEL) , avec le 
fichier 5 , l'éditeur BASIC , etc … 

_ Si la routine LM accuse plus de 256 octets , il faut rajouter des lignes de 
DATA à la suite du logiciel initial . De plus , par mesure de prudence , ne pas 
exécuter LMDATA sans avoir effectué une copie K7 ou fichier RAM de la 
routine à implanter en DATA . 


Le principe de LMDATA est le suivant : 


Ligne 40 : calcul de l'adresse absolue du premier octet de la ligne 10000 . 

Ligne 50 : entrée boucle des lignes complètes . 

Ligne 60 : écriture de la ligne , calcul de l'adresse de la ligne suivante . 

Ligne 70 : nombre de données des lignes incomplètes 

Ligne 200 : boucle des lignes de DATA . 

Ligne 210 : calcul des variables C , D et U . 

Ligne 220 : écriture des valeurs ASCII des variables C , D , U dans le pro- 
gramme puis ajustement de l'adresse mémoire . 


Trois exemples sont joints à cet utilitaire : le RESTORE calculé que nous 


avons déjà vu en début d'ouvrage , une copie rapide de l'écran et un 
graphisme sur écran LCD représentant le LOGO CANON. 


Longueur de LMDATA : 1670 octets . 


Longueur du LOGO CANON : 831 octets . 
Longueur du RESTORE calculé : 372 octets . 
Longueur de COPIE RAPIDE : 539 octets . 
Implantation de ces logiciels : BASIC . 
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FOIIR DATA semis ee peu site ee seu à 


1 REM Ecriture automatique de codes LM 
en DATA RE TE EE RO 
10 CLEARSO, &H1FOB:DEFINTA-Z:LL=16:CA-= lO120 DATA 6% sureté Reno me eee 

48 :CLS ANR TU TNT TE SL UNS CU 

20 INPUT'"Adres. debut routine";DM:DD=DM[1@138 DATA...,,.,,...,,,.,,,,3,.,3.. 
S@ INPUT'Adresse fin routine";FMINC=FM 
-DM+1:JC=INT(NC/LL) 

40 RESTORE 18000 :AD-PEEK(&H328)+256XPEEK 
C&HS29) +6 

5Q LB=LL :FORJ=]ITOJC 

55 PRINT'LIGNE" ;12800+10x)J 

68 GOSUB200 :AD=AD+S :NEXTJ 

?7@ LB=NC-JCXLL : IFLB=BTHEN]128 

80 GOSUR200 

398 PRINT'Effacer la fin de la ligne‘; 
12888+10@xJC 

188 PRINT'Effacer les lignes';108800+1@ 

XCJC+1);"";10150; 

119 IFINKEYS="'"THENI10 

128 END 

208 FORI=1TOLB :UC=PEEK(DM) :DM=DM+I 

218 C=INTCUCX.@1):D=INT(CUC-128XxC)/18) 
:U=UC-]10%xD-128xC 

228 POKEAD, C+CA :POKEAD+1 , D+CA :POKEAD+2 
: U+CA :AD=AD+4 

230 NEXT:RETURN 

LOBOC DATA SL ns md or Ts Sie D es 


LOQHQ DATA: Se er biens een s date SR 


) CC 


10020.DATR Se das ee ma asie 5 02 013 


CP EE 


LOTO DATA, Li es etats fan a ae mois 603 6 à 


nes 


10150 DATA, 4502 moe see toc 


CR 


CC PC CE 


1OBSA DATA sise semer nes re ea 5 


D.) CCC CCC CC 


FOBAD DATA ss ere pe a 29 te a A ee nd eo 09 


1 REM Exemple de RESTORE CALCULE. 
* 12 REM Cree par LMDATA 

19 CLEARSO,8HIFFF':DEFINT A-2 

28 RESTORE 10088 

3Q FORI=@TO1?7:READA:POKER&H200B+I,A:NE 
4@ INPUT'N= C1..3)"3N 

SA IFN<I OR N>3 THEN 40 
68 J-Nx10@ 

7@ 2=USR(&H2200,)J) 

89 READAS :PRINTAS :GOTO48 
188 DATA'"lecture DATA 1008" 
2808 DATA'"lecture DATA 280" 
508 DATA'"lecture DATA 320" 
993 END 

10000 DATABSS,035,894,035,286, 205,013 
243,096,125,210,056,246,243,234,04û 
18814 DATAB@S,28:] 


Does dose den den doom tue 


d0850 DATA nie debit re dun ne 0 end nn 60 


CPE OCR CR CC 


lOGGD-.DATA Presse ane ve 500 das ave s 


CE PS 


FOO70: DATA Ra nan rene te aise ne ae à 5 


CE 


l'OOBD DAT EL 8 Sant ann da ep red e Dates da 63 


FIGURE 16 : FIN/FIGURE 17 : EX 


FIGURE 16 : LMDATA 


REM EXEMPLE DE GRAPHISME À Copie cran 
Mthode de la chaine 
à CLEAR200:DEFINTA-2 DATA cres par LMDATA. 
D x=23:CLS 18 CLEAR 1@0:DEFINT A-2 
B FORL=67T025 28 CH$=STRINGS(S5S, "4#") 
D A1=1:F=1 38 GOSUB 308 
D READA:A1=A1+A:IFF=1 THEN? 4@ FORI=0TO052 :READA :POKEAD+I, A:NEXT 
à F=1:GOT080 PRINT" Copie rapide de l’" 
D FORI=A1-ATOAI-1:PSETCX+I,LI:INEXT:F=8|119 PRINT" ecran sur" 
d IFA1-<29THENSA D PRINT" l'imprimante X-712" 
PRINT" +++"; 
) GOSUB328:EXEC AD 
8 DATA?9,9,4,66,8,6,65,6, 10,63 ? END 
D DATAS,12,2,4,9,3,3,2,7,7,6,3,3,2,6 AD=UARPTR(CHS) :AD=PEEKCAD+1)+256X 
le DATA4,6,6,2,5,6,7,5,1,4,5,9,4,5,1, |PEEKCAD+2)J :RETURN 
;S 19908 DATAOA6, 200,033,020, 002,197, 229 
B DATA4,5,6,4,2,9,4,13,3,2,3,6,1,13,4|801,819,000,009,126,254,232,852, 804 
fo DATAS,6,6,2,10,3,6,5,2,5,2,3,2,6,3 |18@10 DATAB4S,0813,032,247,012,225, 229 
15,2,5,; 3 126,004,035,229,197,205,247, 206,193 
j DATAS,5,6,1,12,4,5,5,2,5,1,4,%,6,2 |1802a DATA225,120,185,032,242,205,176 
287,225,001,020,000,009,193,984,120 
19032 DATA254,004,03%2,209,201 


0 DATAS,5,14,19,4,5,2,5,1,5,S,5,2,5; 


FIGURE 18 : LOGO CANON FIGURE 19 : COPIE RAPIDE 


"Poètes , artistes , littérateurs , écrivains , admirez ce pur produit de la 
science informatique …. Adorez LOGOGENESE , le premier logiciel informatique 
qui va remplacer les académiciens !!" 


Non , non , n'ayez pas peur … Nous sommes en train de délirer mais cela 
va passer !! En restant sérieux , LOGOGENESE est un ‘programme de 
création de mots : ils se forment au hasard à partir de syllabes stockées en 
DATA . 


Evidemment , les mots ainsi créés ne vont pas avoir beaucoup de sens 
mais que voulez-vous , il faut bien dévoiler son originalité de temps en temps... 


Le programme est très simple en lui-même . Ecrit entièrement en BASIC , 
il fait appel aux méthodes du RESTORE calculé et de la chaîne de 
caractères pour l'implantation d'une petite routine 


Pour l'utiliser , faire RUN suivi de RETURN dès que le programme se 


trouve en mémoire … À partir de ce moment là , le X-07 crée des mots et les 
affiche à l'écran dans un bouillonnement de culture !! 


Longueur de LOGOGENESE : 1819 octets . 
Implantation de LOGOGENESE : BASIC . 
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100 DATA AERO, AGRO, AMBI , ANDRO 
181 DATA ANTI,ASTRO, BIBLIO,BIO 

192 DATA CACO,CALLI, CLEPTO, CHINMIO 
183 DATA CHRONO, CINE , COPRO, COSMO 

194 DATA CRYO, CRYPTO, DECI, DECA 

185 DATA HEMI, DERMO, DEXTRO, DODECA 
146 DATA DROMO, DYNANMO, DYS, ECTO 

107 DATA ELECTRO, EMBRYO, ENTOMO 

108 DATA ERGDO, EROTICO, GASTRO, GEO 

1893 DATA GLOSSO, GONIO, GONO, GYMNO 

119 DATA HECTO,HELIO, HEMATO,HETERO 
111 DATA HIERO,HIPPO, HOLO, HOMEO 

112 DATA HOMO, HYDRO, HYPER, HYPO 

1135 DATA ICONO, IDEO, INFRA, ISO 

114 DATA INTRA, LATERO, LIPO, LOGO 

115 DATA LOXO, MACRO, MEGALO, METEO 

116 DATA META, JICRO, MKs0O, MNEMO 

117 DATA MORPHO, MYTHO, NECRO, NEO 

118 DATA NOSD, NUGLEO, OCTO, OLEO 

119 DATA OMNI, ORTHO, PALEO, PAN 

128 DATA PARA, PAPYRO, PATHO, PEDO 

121 DATA PENTA,PERI, PETRO, PHAGO 

122 DATA PHALLO, PHANERO, PHILO, PHYTO 
123 DATA PHOBO, PHONO, PHOTO, PHRENO 
124 DATA PHYSIO, POLY, MONO, HEMI 

125 DATA PORNO, POST, PROTO, PSEUDO 

126 DATA PSYCHO, RADIO, RETRO, RHINO 
127 DATA SADO, STEREO, SCLERO, SEMI 

128 DATA SCHI20, SIMILI, SPELEO, STENO 
129 DATA SUB, SUPRA, SUPER, TACHY 

139 DATA TECHNO,TELE,TELEO, THEO 

131 DATA THERMO, TRIBO, ULTRA, UIDEO 
152 DATA XENO;, XYLO, 200, MINI 

208 DATA ALGIE, CARDE, CINESE, CEPHALE 
201 DATA CLASTE, COSMOS, CYCLE, DACTYLE 
202 DATA DERME, DIDACTE, DOXE , DROME 
203 DATA DŸNE, FUGE, GAME, GASTRE 

284 DATA GLOTTE, GENESE, GENE , GRADE 
205 DATA GYNE,LATERE,LATRE,LOGIE 

206 DATA LOGUE, MANCIE,MANE, MANIE 

287 DATA MATIQUE,MEGALIE,METRIE,MNESIE 
208 DATA MORPHE , NAUTE, NEUROSE , NOMIE 
209 DATA PATHE, PHAGE, PHANIE, PHILE 
218 DATA PHOBE, PHONE, PNEE, PYGE 

211 DATA RRHEE, SCAPHE, SCOPE, SCOPIE 
212 DATA STASE, STENIE, THEISME, TONIQUE 
TROPE , TYPE, UORE, TIQUE 


ATTENTION NE PAS RENUMEROTER 
) DEFINTA-2 :CLS :PRINT'"'Logognse" 

) RMS=STRINGS(18, 2) :GOSUBIQ 

) FORI-@T01?7 :READBS :POKEAD+I , VALC"B&H" 
3$) :NEXT :2-RND(@B) 

) DATA23,23,5E,23,56,CD,@D,F3,60,69, 
2,38,F6, 2B, 22, 28,03,C9 

5 J=INT(RND(1)X33)+100 :GOSUBSO 

à Z=USRCAD, J) :N=INTCRNDC1)%4+1) 

5 FORI=1 TON :READDS$ :NEXT 

) K=INT(RND(1)%X14)+200 :GOSUBSE 

5 2-USRCAD, K)J :N=INTCRND(1)%4+1) 

) FORI=1TON:READFS :NEXT 

j PRINTDS ;F$:IFINKEYS$=""THENSS 

) IFINKEY$=""THENSOELSE4S 

} AD=UARPTRCRMS ) :AD=PEEKCAD+1)+256% 
EKCAD+2) :RETURN 


FIGURE 20 : LOGOGENESE FIGURE 20 : FIN 


Cet utilitaire est destiné à améliorer la présentation des listings 
BASIC : titre , numérotation des pages , saut de ligne en fin de page , 
alignements des débuts de ligne , formatage des numéros de ligne 


Le mode d'emploi de LLIST est le suivant : 


_ Vérifier au moyen des commandes DIR et FSET qu'il reste au moins 600 
octets libres dans la zone des fichiers RAM . En effet , la partie active du 
logiciel va s'implanter automatiquement dans le fond de la mémoire 

_ Faire CLOAD puis RUN pour charger les codes si vous possédez la K7 des 
Editions NEPTUNE . Sinon , bon courage !! 

Ajuster la longueur des pages (octet &H950) et la longueur des lignes 
(octet &H93C) à votre convenance . Pour ajuster ces octets , on peut utiliser 
la carte XP-140 ou la commande POKE . Remarquons que l'octet &H93C contient 
la valeur &H27 : il est préférable de la remplacer par &H26 pour éviter des 
sauts de ligne imprévus si une ligne de 39 caractères survient 

_ Lancer le programme par EXEC &H800 . La routine retourne alors à 
l'adresse décimale de son implantation : cette adresse est variable suivant 
votre version de X-07 . Il est impératif de bien noter cette adresse afin 
de pouvoir lancer LLIST par "EXEC adresse" dès que l'on en a besoin. 


Le sous-programme relogeur , présenté dans les pages suivantes , 
s'auto-détruit automatiquement dès qu'il a exécuté sa mission 

LLIST utilise le même principe d'analyse d'un programme BASIC que les 
logiciels REFBAS ou EXABAS : vous pouvez donc vous y reporter afin de bien 
cerner le processus de travail 

D'autre part , la concision du programme résulte de l'emploi de la routine 
&HFEFE incluse dans la ROM . Cette routine réécrit dans le tampon d'entrée 
(début : &HDS) la chaîne pointée par le registre HL (terminateur : code O0) . 


Longueur de LLIST : 554 octets . 


Il ion I : variable (suivant la configuration) 
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La routine permettant de reloger LLIST est décrite dans les 
lignes suivantes . Ce programme permet des quantités d'applications en 
contrôlant parfaitement l'implantation de n'importe quelle routine 


Ce ‘"relocateur" a été réalisé avec un ASSEMBLEUR autorisant le calcul sur 
les labels symboliques . Si vous ne disposez pas d'un tel outil , vous devez , 
postérieurement à l'assemblage , calculer et recréer la table des adresses à 
modifier 

D'autre part , lors de la construction de la table des adresses à modifier , il 
faut être particulièrement vigilant pour ne pas commettre un oubli 


irréparable !! 
Enfin , il est inutile d'écrire “un programme relogeur" si le logiciel à 
"relocater" n'est pas parfaitement au point …… En effet , toute modification du 


programme peut entrainer une ou des modifications de la table 
Voici le listing détaillé de cette routine : 


DEB LD HL , ($212) ; HL contient l'adresse du fond de la 
mémoire 
DEC HL 
LD BC , fin - début ; Longueur à déplacer 
XOR A ; Mise du drapeau CARRY à 0 
SBC HL , BC ; HL contient l'adresse du début du 
programme 
PUSH HL ; 
PUSH HL ; Empilages pour usages ultérieurs 
PUSH HL ; 
CALL $CE9E ; Effacement de l'écran 
LD HL , MSG1 ; Affichage sur l'écran LCD du message : 
CALL $FEF7 ; "NOTEZ AD= .….." 
POP HL 
CALL $BB98 ; Affichage de AD en décimal 
LD HL , MSG2 ; Affichage sur l'écran LCD du message : 
CALL $FEF7 ; "Pressez une touche" 
KEY XOR A ; 
CALL $C90A ; Attente de la pression d'une touche 
JRZ,KEY ; 
POP HL ; HL contient le début après transfert 
LD DE , début ; DE contient le début après transfert 
XOR A 
SBC HL , DE ; HL = offset 
PUSH HL : 
POP BC ; BC = offset 
LD IX , table ; Table des adresses à modifier 
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DEBO LD L , (IX+0) 


LD H , (IX+1) ; HL = adresse à modifier 

LD E , (HL) 

INC HL 

LD D , (HL) ; DE = contenu à modifier 

DEC HL ; Réajustement de HL 

PUSH HL ; Sauvegarde de l'adresse à modifier 
EX DE , HL ; HL = contenu à modifier 

ADD HL , BC ; HL = HL + offset 

EX DE , HL ; DE = valeur modifiée 

POP HL ; Récupération de l'adresse à modifier 
LD (HL) , E ; 

INC HL ; Modification effectuée 

LD (HL) , D ; 

INC IX ; Adresse suivante de la table 

INC IX ; L 

LD A , (IX+0) 

CP 0 ; Fini ? 

JR NZ , DEBO ; Si ce n'est pas terminé , on boucle … 
POP DE ; … Sinon DE = adresse début (MEM haute) 
LD HL , début ; HL = adresse début (MEM basse) 
LD BC , fin - début ; Longueur à transférer 

LDIR ; Transfert du programme modifié 
LD HL , DEB 

LD A , $C3 ; On écrit à la place de DEB les codes 


LD B ,3 ; "C3C3C3" afin de rendre le relocateur 
DEB1 LD (HL) , A ; inutilisable 

INC HL ; 

DJNZ DEBI1 ; 

JP $C3C3 ; Retour au BASIC 


MSG1 DB 'NOTEZ AD =',0 ; O est le terminateur pour la routine FEF7 


MSG2 DB ‘Pressez …." , 0 ; Message "Pressez une touche" 
TABLE DW Al+1 , 

DWit. 

DB 0 ; Fin de la table 


Exemple de programme à reloger : 


DEBUT CALL $CE9E 


Al LD HL , MSIMP ; Première adresse à modifier 
CALL $FEF7 
FIN EQU $ ; Fin du logiciel à reloger 
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| FIGURE 21 : LLIST FIGURE 21 : FIN 


CLEARS5G, &H7FF LISTING LOGO CANON 
INITH1,"CASI:" 
INPUT#1,N$,0,F 18 CLEAR200:DEFINTA-2 
MOTOR 28 xX=23:CLS 
PRINT'Trouv :"3;N$ 39 FORL=61025 
FORI=D-1TOF 4@ Ai=1:F=1 
POKE I, INPCH1) 50 READA:AÏ=AL+A:IFF-=ITHEN?O 
NEXT :MOTOR 68 F-1:GOTO08@ 
END 28 FORI=AI-ATOA!-]:PSETCX+I,L 
CLEARSO, &H2FF F=g 
D=8HB00:F-8RHA29 | 8@ IFA1=<?29STHENSE 
N$="LLIST':INITHI, "CASO:" 9@ NEXT 
INPUT'Magnto OK'";T$ 128 END 
PRINTHI,NS$,D,F :MOTOR 118 DATA?9,9,4,66,8,6,65,6,10,63 
FORI=1TOIB8BB:NEXT 120 DATAS,12,7,4,9,3,3,2,2,7,6,%:3;, 
FORI=OTOF :OUT#1,PEEKCI) 6 
NEXT :MOTOR 138 DATA4,6,6,2,5,6,7,5,1,4,5,9,4,5 
END ,4,5 
148 DATA4,5,6,4,2,9,4,13,3,2,3,6;1;, 
,4 
158 DATAS,6,6,2,10,3,6,5,2,5,2,3,2; 
3,5, 2,53 
162 DATAS,5,6,1,12,4,5,5,2,5,1;:4,3; 
DS 25 058 
128 DATAS,5,15,8,5,5,2,5,1:4, 36,2; 
25543 
188 DATAS,5,14,18,4,5,2,5,1,5,3,5,2 
,2555;S 
198 DATAS,5,13,5,2,4,4,5,2,5,1,5,3; 
25525558 
208 DATAS,6,11,5,4,4,5,5,2,5,1,6,3, 
25552 553 
218 DATA4,5,9,1,1,5,4,4,3,5,2,5,1,6 
,4:2%552:5 8 
220 DATA4,6,6,2,2,6,7.6,2,5,2,5, 2,6 
525532 
2 DATAS,12,4,8,1,4,2,5,2,5,2,6,5; 
3: 5:25;55:3 
240 DATA6,12,6,6,2,5,1; 52:53:94; 
25555 
258 DATA8,6,9,4,3,5,1:5,2,5,4,7,5,5 
55: 3, 29,78 


5 ?XXX ENTREUR DE CODES XXX 
18 CLEARSO, &H/FF :A=RH80G 
28 PRINT HEXS(A)D3;" : ";:INPUT C$ 
38 V=UAL (C"&H'+CS$S):POKE A,U 
483 A=A+I:IF AD&HA23 THEN PRINT 
. "IBEEP 2, S:END 
GOTO28 


FIGURE 22 : CHARGEURS FIGURE 23 : EXEMPLE 


LABYRINTHE D 


Ce jeu n'est pas unique en son genre mais il va vous faire passer 
d'agréables moments grâce à sa rapidité et à ses multiples options . 

Le but est de se sortir d'un labyrinthe compliqué dont vous pouvez 
obtenir deux vues différentes : une vue de "haut" (totalité du dédale visible) 
ou une vue de "bas" (vue en perspective de la partie où vous vous trouvez ..) 
La boussole affichée sur l'écran vous aidera à vous en sortir … Du moins 
l'espèrons !! 

D'autre part , un score est affiché sur l'écran tout au long de la partie … 
En effet , vous devez mettre le moins de temps possible à sortir du labyrinthe 
pour espérer obtenir le score le plus bas possible 


, nous 


Le mode d'emploi est simple : 


_ Après avoir chargé le logiciel (Soit CLOAD puis RUN 
chargeur de codes .) , faire EXEC &H800. 

_ Une petite présentation défile : tapez sur une touche pour continuer 

_ De succintes explications apparaissent accompagnées des commandes 
disponibles : Nord , West , Est , Sud pour les direction , B pour retourner au 
BASIC , R pour repartir du point de départ , À pour avancer dans le dédale et 
L pour avoir une vue d'ensemble … Cette dernière fonction coûte 20 points : 
usez-en avec parcimonie !! 


, Soit avec le 


Après avoir tapé sur une touche quelconque , le labyrinthe se crée 
automatiquement Dès que vous êtes prêt à y pénétrer , pressez une touche 
_ Vous vous trouvez alors à l'entrée du labyrinthe … La sortie se trouve à 


l'opposé ! Rassurez-vous , le minotaure est en vacances ! 


Longueur de LABYRYNTHE : 2066 octets . 
Implantation de LABYRINTHE : de 800h à 1012h. 
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Quelques indications sur l'algorithme de création du dédale : 


1/ 
2/ 
3/ 


4! 


Créer un tableau de cellules vides 

Choisir une origine voisine du centre 

Tester les quatre cases voisines afin de déterminer celles qui ont été 
visitées . 

Si toutes les cases voisines ont été visitées , ajuster les pointeurs 
jusqu'à retomber dans une case déjà visitée , limitrophe d'une case 
non visitée . 

Choisir aléatoirement parmi les cellules limitrophes non visitées 

Y aller en créant une porte dans la cellule de départ et une dans la 
cellule d'arrivée . Marquer la cellule d'arrivée . 

Si toutes les cellules du tableau n'ont pas été testées , remonter en 3/ 
sinon créer une entrée et une sortie . 
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7XXX PROGRAMME 1 XXX 
?XX4X CHARGEUR BASIC XXX 


CLEARSE, &H?F@ 
INIT#1,"CASI:" 
INPUT#1,NS,D,F 
MOTOR 
PRINT'"Trouv 
FORI=D-17T0F 
POKE 1; INPCH1) 
NEXT :MOTOR 
END 
CLEAR5E, &H?FB 
D=&HB22:F=8&H]212 
N$= "'PLABIR":INITH 


UNS 


FORI=1T01800:NEXT 


NEXT :MOTOR 
END 


2XXX PROGRAMME 2 XXX 


1, "CASO :" 


INPUT "Magnto OK'3TS$ 
PRINTHI,N$,D,F :MOTOR 


FORI=DTOF :OLITH1,PEEKCI) 


?XXX ENTREUR DE CODES X%X 
CLEAR5A, RH7FG:A=8&HRA 


PRINT HEXSCA)D3;" : 


“3 :INPUT 


C$ 


U=UAL C'8&H'+CS):POKE A, U 


M.ND,,F, | 49 A=At+I:IF AD&HIP12Z 
sUa8n SX 5» "IBEEP 2, S'END 
KN .Fi,K[ 58 GOTO20 


THEN PRINT 


‘it 


FIGURE 25 : CHARGEURS 


Pas un jeu n'est à la fois plus familier et plus méconnu que le 
SOLITAIRE . Ses règles sont si simples qu'il n'a pas la réputation d'être un jeu 
de réflexion . Néanmoins , il exclut toute forme de hasard , ce qui en fait 
un excellent casse-tête 


Le matériel qu'il requiert est des plus simples : il se réduit à une 
planchette perçée de 33 , 37 ou 41 trous dans lesquels viennent se loger 
autant de fiches , billes ou coquillages . Le solitaire à 33 trous , aussi appelé 
"Solitaire ANGLAIS" , connut un grand succès en Angleterre et en 
Allemagne . Le logiciel proposé utilise d'ailleurs le type anglais . Notons tout de 
même que deux autres versions existent : le "solitaire FRANCAIS" à 37 cases 
et le "GRAND Solitaire" à 41 trous . 


Les règles du jeu sont des plus faciles à assimiler . Il suffit de mettre en 
place toutes les fiches dans les trous prévus à cet effet , d'en ôter une au choix 
puis de commencer à les retirer comme on le fait au jeu de DAMES 
Remarquons qu'une fiche peut prendre une autre fiche contiguë en sautant par 


dessus , horizontalement ou verticalement , à condition de retomber dans un 
trou inoccupé 
Si aucun mouvement ne peut être effectué , la partie est terminée … Plus 


le nombre de fiches est restreint sur le damier 
étant qu'un seule fiche demeure 


, Meilleur est le score , l'idéal 


Le mode d'emploi est des plus simples : 


_ Après avoir chargé le programme dans la mémoire du X-07 par CLOAD 
puis RUN (ou par le chargeur de codes si vous ne possédez pas la K7 ..) , faire 
EXEC &H809. 

_ L'option 1 du menu permet d'accéder à une recherche par le X-07. 
L'utilisateur choisit le nombre de pions de la solution finale et le programme 
livrera une solution après un laps de temps plus ou moins long , suivant 
l'option choisie . En effet , le canoniste a le choix entre 22 possibilités de 
recherche 
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Aucun algorithme simple n'est connu pour ce jeu et le programme 


effectue une recherche systématique . A chaque étape , il examine 
successivement toutes les cases dans les quatre directions possibles …. Dès 
qu'un coup est jouable , le X-07 l'exécute . Si la recherche conduit à une 
impasse , le CANON remonte niveau par niveau : l'ordre d'examen des 


directions possède donc une importance capitale en ce qui concerne la vélocité 
avec laquelle le logiciel parvient à une solution . 

_ L'option 2 du menu donne accès au jeu du joueur : le programme 
assure l'affichage du damier , enregistre , teste et exécute les coups proposés 
par le joueur . Plusieurs commandes sont disponibles pour jouer 

* Déplacer le curseur sur la case de départ au moyen des flèches et 
presser sur la touche "D" : un marqueur s'allumera … 

* Déplacer ensuite le curseur sur la case d'arrivée et presser la touche "A" 
afin d'exécuter le coup . 

* La touche "-" permet de revenir au coup précédent . 

* La touche "Q'" permet d'arrêter le jeu quand il est bloqué . 

* La commande "CTRL Q" redonne "la main" au BASIC . 

_ Si le nombre de pions est supérieur ou égal à 3 dans l'option 1 , le 
logiciel trouve une réponse en quelques secondes . Par contre , si le nombre 
de pions est égal à 2 , l'attente peut varier de cinq minutes à une heure 
selon le choix de l'ordre . Pour l'ordre 9 , le programme trouve une solution 
classique en moins de dix minutes . 

_ Enfin , le logiciel affiche la profondeur d'analyse dans l'arbre . Cette 
opération se révèle très couteuse en temps d'exécution … Pour la supprimer , il 
suffit de mettre à O0 les octets &H989 , &H98A et &H98B par l'ordre POKE du 
BASIC , par exemple . 

_ Voici , pour terminer , un schéma du Solitaire anglais : 


n L ITAIRE : 4609 octets . 
i : de 800h à 11D5h. 
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FIGURE 26 : SUITE FIGURE 26 : SUITE 


CLEARS@, &H?FF 
INITH#I1,"CASI:" 
INPUT#I,N$,D,F:MOTOR 

PRINT'Trouv : ";N$ 

FORI=D-1TOF 

POKEI, INPCHIJ:NEXT :MOTOR : END 
CLEARSO, &H?FF 

D=&H800 :F=&H11D5 
N$="SOL'":INIT#H#]1,"CASO:" 
INPUT'Magnto OK";T$ 
PRINTHI,NS$,0D,F :MOTOR 
FORJ=1TOI8B@B:NEXT 
FORI=OTOF :OUTH1,PEEKCI) 
NEXT :MOTOR : END 


5 REM XX%X ENTREUR DE CODES XxX 
CLEAR 50, &H?FF :A=8&H800 
PRINTHEXS$CA);" : ";:INPUT C$ 
U=UAL C"'&H"'+CS):POKE A,U 
A=ATISIF ADRHIIDS THEN PRINT" 

. ":BEEP 2, 3 :END 
GCTOC2@ 


FIGURE 26 : FIN FIGURE 27 


Jouer aux PENTOMINOS , c'est s'attaquer à toute une série de puzzles 


bien particuliers . Des constructions à manier avec votre sens des 
mathématiques , de la logique … et de la stratégie 
En fait , pour les non-initiés , les pentominos constituent les formes 


obtenues en juxtaposant le long de leurs côtés plusieurs carrés de surface 
identique . Le casse-tête utilisant les douze pentominos est assez ancien : on en 
trouve des énoncés dès 1907 dans des revues spécialisées telles que 
"CANTERBURY PUZZLES" . 

Il existe donc douze manières différentes d'assembler cinq carrés 
en les joignant par leurs arêtes : les pentominos sont constitués . Pour les 
identifier , on utilise leur ressemblance avec l'alphabet. 

Le problème du rangement des pentominos dans des cadres 
rectangulaires a été résolu . on sait qu'il n'existe que 2 solutions pour un cadre 
3*20 ,368 pour un cadre 4*15 ,1010 pour un cadre 5*12 et 2339 pour un 
cadre 6*10. 

Malgré le grand nombre de solutions possibles et le petit nombre de 
pièces , la résolution de ce puzzle est difficile . 


Le programme présenté a été écrit pour effectuer une résolution 


automatique de ce puzzle : il procède par "“essais-erreurs" jusqu'à ce qu'une 
solution soit trouvée . Pour obtenir des solutions différentes , l'ordre d'examen 
des pièces est modifiable . Notons que cet ordre conditionne la durée du 
calcul. 


Si une imprimante X-710 est reliée au X-07 
les résultats obtenus 


, il est possible d'imprimer 


Le mode d'emploi est très simple : 


_ Possesseurs de la K7 , faites CLOAD puis RUN pour charger les codes . 
Sinon , rentrez les à la main avec les chargeurs fournis . 
_ Le programme est lancé avec EXEC &H800. 
Tapez sur une touche après chaque affichage . Choisissez votre tableau 
et l'ordre d'examen de pièces 
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Le CANON recherche la solution et vous la donne après quelques 
instants de réflexion . Vous pouvez alors l'imprimer sur la X-710 . 
_ Pour stopper le jeu et retourner au BASIC , taper sur "CTRL Q". 
_ Si vous désirez une solution rapide pour les trois damiers , vous pouvez 
entrer la combinaison de recherche "TFILUVNWPXSVY" . 


Voici , pour terminer , le schéma des pièces : 


Longueur de PENTOMINOS : 3489 octets . 
Implantation de PENTOMINOS : de 800h à 159Ah . 
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CLEARSB, &H7FF 
INIT#1,"CASI:" 
INPUT#I,N$,D,F :MOTOR 
PRINT'Trouv : ";N$ 
FORI=D-1TOF 
POKEI, INPC#1) :NEXT : MOTOR : END 
CLEARSO, &H?FF 
D=8&H800 :F=8&H159A 
N$="PENTA":INIT#1,'"CASO:" 
INPUT'"'Magnto OK'";T$ 
PRINTH#I,NS$,D,F :MOTOR 
FORJ=1TO1800:NEXT 
FORI=PTOF :OUT#1,PEEK(CI) 
NEXT :MOTOR : END 


S REM %Xx%X ENTREUR DE CODES XxxX 
19 CLEARSB, &H?FF :A=8&H800 
28 PRINTHEXSCA)D;" : ";:INPUT C$ 
#, 1, .ün 32 U=UALC'"8&H"+CS) :POKE A,U 
.p#a+E>, 493 A=<A+I:IF ADSHISSA THEN PRINT" 
r.ml:::"3BEEP2, 3 :END 
1.2>0t.>|S58 GOTO2a 
UN, x 
CEUX: 
AY, 
PAR LÉ 
r7HeMuNa 
Hu s ME 
sBrñtéirss 


FIGURE 28 : FIN FIGURE 29 : CHARGEURS 


Ce programme implémente la fonction AUTO … Ce qui signifie que le 
CANON va disposer d'une numérotation automatique des lignes de 
programme BASIC !! 


Après avoir chargé le programme "AUTONUM" dans la mémoire du X-07 , 
il suffit de choisir l'adresse de fin de la routine à implanter suivant la 
configuration de votre CANON . Ensuite , un FSET judicieux protègera votre 
routine (FSET 215 minimum) 

La procédure d'implantation de la routine résidente va pouvoir être 
débutée . Pour cela , faire RUN suivi de RETURN … Le logiciel vous demande 
votre adresse de fin (en hexadécimal) et l'adresse de lancement vous est 
renvoyée . Le chargeur devenu inutile peut être détruit par l'ordre NEW 


L'utilisation d'AUTONUM est la suivante : 


_ En tapant CTRL N° , le programme affiche un point d'interrogation 
Vous devez alors entrer le numéro de la première ligne et l'incrément choisi 
Exemple : en tapant , "100,10" suivi de RETURN , la séquence générée sera 100, 
110 , 120 , 130 … 

_ L'appui sur CTRL Z agit comme une bascule permettant d'entrer et de 
ressortir de la fonction AUTO . 

_ CTRL Q désactive de manière définitive AUTONUM . Pour le relancer , il 
faut alors taper EXEC AD , AD représentant l'adresse de lancement affichée au 
tout début des opérations 


AUTONUM fonctionne grâce à la modification de l'interruption 
clavier . Si une pression est détectée sur la touche RETURN , le logiciel agit de 
la manière suivante 

Exécution de l'opération demandée 
_ Si AUTONUM est actif , écrire dans le tampon d'entrée le numéro de la 
ligne et l'incrément (pour la ligne suivante) . 
_ Revenir à l'exécution normale 
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Voici quelques remarques sur la programmation de AUTONUM 


Tout d'abord , ce logiciel utilise cinq octets de mémoire morte pour 
stocker ses données … Ces octets sont situés dans le tampon utilisé par les 
routines CSAVE et CLOAD. 


Ensuite , AUTONUM agit par interception du vecteur des interruptions 
(&H3D) . Or le programme est relogeable : il faut donc trouver une astuce pour 
que ce logiciel effectue de lui-même la modification correcte de ce vecteur 
Une solution est décrite ci-dessous 


Origine : quelconque 


Début LD HL , $DSD1 ; Ecriture en $300 de la séquence : 

LD ($300) , (HL) ; POP DE 

LD A , $C9 ; PUSH DE 

LD ($302) , A : RET 

CALL $300 ; Lors du CALL , l'adresse XXX est empilée 
XXX LD HL , 14 ; Au retour du CALL , DE = XXX 

ADD HL , DE ; HL = AUTONUM (14 octets entre XXX et 

AUTONUM) 

DI 

LD ($3D) , HL ; Nouveau vecteur d'interruption 

EI 

XOR A ; Inactiver la routine AUTONUM : l'adresse 

LD ($300) , A ; $300 contient le drapeau activé par la 

RET ; séquence CTRL Z 


AUTO. Début du logiciel … 


Longueur de AUTONUM (BASIC) : 1093 octets . 


Lon r la_ routine : 215 octets . 
Implantati routine : relogeable . 
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REM fonction AUTONUM pour x-8? 
CLEARSR, RHFFF:DEFINTA-2Z:CLS 
INPUT Ar, fin "3AS:F=UALC"EH"+AS) 
DxF-215:PRINT'Adr, deb = "3;3HEX$CD) 
@ FORI=DTOF :READA:POKETI;,A:NEXT 
EXECD :END 
Lever DATAASS, 209,213,034,000,005,062,20 
1,4584,8002,00:,205,000,005,033,014 
2014 DATAGUR,025,2453,034,061,008,251,1/ 
5,450, 000,003,201,217,008,219,242 
1 € à DATA230,001,202,193,200,219,240,22% 
1,192,040,008,230,128,2072,953,200 
12032 DATAI95,812,200,219,241,254,013,03 
2,875,895,175,205,098,194,175,205 
10048 DATA1?78,194,058,000,005,183,202,18 
3,200,862,081,;211,:245, 217,008; 197 
12058 DATA213,229,245,257,09],@8i,885,t64 
2 ,003,003,025,0%4,001,@03,235,205 
1206A DATA156,187,035,205,110,215,20@5,0t 
4,215,205,8059, 202,018,19?,215,0295 
1287@ DATA1?5,7205,098,194,1275,205,178,1€ 
4,209,193,021.003,0%2,238,241,225 
12089 DATA223,193,251,201,254,026, 032,07 
?,462,081,211,245,;217,098,197,213 
]jeU98 DATA223,245,062,U13,239,062,0108,25 
S,0335,400,023,1275,182,047,113, 252 
1216C DATA221,@24,176,254,014,232,041,926 
2,481,211,245,217,008,197,2153,223 
,2S2,200,003,285,2742,23 
5, 215,225,204 ,Z37,083,001,0@03 
18124 DATA287,044,225,204,255,25?7,085S,0a 
3,0UX3,1/5,061,050,000,083,824,1%] 
10134 DATA254,01/,194,128, 200,195, 195,13 


FIGURE 30 : AUTONUM 


REFBAS 


REFBAS est um utilitaire qui permet d'obtenir soit une liste 
triée de toutes les variables d'un programme BASIC , soit une table 
croisée des références à un numéro de ligne . Ce logiciel est donc 
particulièrement utile si l'on désire analyser , modifier les noms des variables , 
réorganiser ou documenter un programme BASIC , surtout si ce dernier est 
long . 


Le mode d'emploi de REFBAS est le suivant : 


_ Avant de charger REFBAS , faire FSET 1024 . Cette opération permettra 
la protection ultérieure de REFBAS situé en fin de mémoire fichier (version 16 
Ko) . Carte moniteur en place : FSET 4096. 

_ Charger REFBAS en tapant CLOAD suivi de RETURN puis RUN toujours 
suivi de RETURN . Les codes se chargeront et le programme sera lancé par la 
commande EXEC &H3C10 . Comme toujours , si vous ne possédez pas la K7 , 
les chargeurs sont à votre disposition 

_ Un menu s'affiche alors avec trois options disponibles : 

* OPTION __V : REFBAS construit une table triée de toutes les variables 
et des numéros de lignes où ces variables sont appelées . 
* OPTION _S : le programme édifie une table des références croisées pour 
les instructions GOTO , GOSUB , THEN , ELSE , RESUME , RUN 
et RESTORE . Le numéro des lignes ciblées est imprimé en 
tête ainsi que le numéro des lignes faisant référence à 
cette cible . 
* OPTION _B : retour au BASIC . 
Remarquons que la commande CTRL Q permet de revenir au BASIC à 
n'importe quel moment et que BREAK est actif durant la phase d'impression . 


Pendant son fonctionnement , REFBAS crée à la suite du programme à 
analyser une table utilisant six octets par variable ou référence . Quand 
cette table arrive au contact de la pile , l'utilitaire annonce que la taille 
mémoire est insuffisante : il convient dans ce cas d'analyser le programme 
étudié en le segmentant 
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Pour terminer , voici une petite note technique pour les fans de la 

programmation avancée 

La longueur des lignes (40 pour la X-710) est contenue à l'adresse 

&H3EDB . Si vous désirez imprimer en plus petit , libre à vous !! 

Tous les BASIC issus de la firme MICROSOFT sont structurés de la même 

manière 

_ 2 octets de chaînage indiquant l'adresse absolue de la ligne suivante . 

_ 2 octets pour le numéro de ligne . 

_ n octets de code . Les mots clés du BASIC sont codés sur un ou deux 
octets (un seul pour le X-07) afin de limiter l'encombrement mémoire 
et de faciliter la tâche de l'interpréteur . Les autres caractères sont 

codés en ASCII. 

_ 1 octet égal à O0 représentant l'indicateur de fin de ligne . 


L'adresse de la zone programme est contenue dans l'octet &HB2 
(indicateur TXTTAB) et est égal , en principe , à &H553 . Vous pouvez 
utilement consulter les "Mystères du X-07" pour plus de précisions 

La boucle de scrutation du programme BASIC de REFBAS (similaire à 
celle d'EXABAS et LLIST) est structurée de la manière suivante : 


LD IX , (TXTTAB) ; Initialisation 

BOUCLE  XOR A ;, A=0 
CP (IX + 1) ; Si (IX + 1) = O0 , c'est la fin du programme 
JPZ , fin ; Fin 
PUSH IX ; Sauve l'adresse du début de la ligne 
LD L , (IX + 0) ; L'adresse de la ligne suivante est stockée 
LD H, (IX +1) ; dans le registre HL 
LD E , (IX +2) ; Le numéro de ligne est stocké dans le 
LD D , (IX +3) ; registre DE 
PUSH HL 
POP IX ; IX pointe sur la ligne suivante 
POP HL ; On récupère l'adresse du début de la ligne 
LD BC ,4 
ADD HL , BC ; HL contient le premier code de la ligne 
init enrrees ; Traitement 
JP BOUCLE 


REFBAS se livre à una analyse détaillée des différents types de variables 
et envisage tous les problèmes de chaîne . En ce qui concerne les références , il 
va les chercher derrière les mots clés . 


Longueur de REFBAS : 985 octets . 
Implantation de REFBAS : de 3C10 h à 3FE9h. 
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DD X],ys21= : 7B 
3D 4 "=, (M. N2 : C3 
3F ; X?Mur/M, i ‘ 11 
28 ICz-UC.-]- : j ) ) E2 
28 SCC-B ns Ca: ea 
99 3P A6 : 9,G"=,(C C8: Le! 
CS K< è CE; <"7<|3ppa : k CS. CS 
e6 >.2.=0@=|: : f ) 22 
2E 
18 ) sé ; 1 ÀF 28 
3E | 5.2 F2.50. à 3 ZE 28 
22 2 22 =<",=2D?" TE 5 E | 86 
3E = C j .)M.N£9g?|° ; 23 
D F7 : Mur /M, IC : 23 
zM, NM7012 : : 2e 
SF 7 ( > uPMurml" :ED es SF 
CD 3€ : F .M.»>JX2. D 22 
DD B /J3>.(k]Je ; ) 3F 
ei CPR 38: ) 2A D AF 
1C FE ; C.+.(8-. 


14 "FE | | CSC ACGRE ï ) SF AE DD 4E 
23 L She Ce 3 DD 
2? 28 S JE M ou#, inf. $ 3F CD 
DD .Jf.e]Ja. 3 : 3F 
23 : ? G##=s, Conf. : SEc FD 
30 ET K : 083 :8r ù 66 


41 -A8_*G85 2 
DS3 E .Y-&CcrAÎXE : DB 
Di 2] 8Q-[C@Me 2 8Q : DB 
28 ? Eï °C. ,mra. |: :( : ae 
D5 £ C '<1J0, PMus | à : . * DS 
CP SE CS ND? 30 an. >CW=L : E0 
El $ IN ?7E Ja}6,{fji<|3E À ) DD 5 
FD / D 7 D re ds : | Pa 
2? 1N ]'; 2° Wu Fu jt, cBA:?7E CB 

-_ 2@ EE ; Ë ...#TC.=|3ERS: 7 ? : e 29 6 
21 FE 26:28F2 DCUrXCrT|3ECA:4F ND 1 ÀF BI 
23- 2 $ 2 : r#Cne$(s C8: i 18 5 03 F 
28 2 È € MO ah J :4E AZ TA 
30 : )C. FE r08.-:8213 :3F is L 3F 
4] E :SBYE rAB,-C8R : 6 @7 
71 & }a.{F._Zz|3EES8: C] 
ee C N.WCXx<+, [3e 3 Ë 8a 3: 
19 FE 2 Fee s:QD : 9 2 5*x7/Enl 
11 36 PAPA “29: 3 FS 
29 78 QS FE C 3F08:2 EC 22 
CS SEC 2€ : l 2? 
FE 2C _ 30 = :5F S ? A] 
SC FE 3 ï 3F?2a:: 23 BE 22 18 
2C FE A 38 2 : 28:?B C9 5: 5 46 41 53 


d. 


FIGURE 31 : REFBAS FIGURE 31 : SUITE 


A 


A 


V,16K.. 
F38:55 29 3D 2Q 4C 69 73 74 7 Ù = List 
F40:65 20 56 61 72 69 61 62 e Var lab 


S REM XXX CHARGEUR REFBAS 16 Ko 
19 CLEARSG, &H9FF 
28 INIT#1,'"CASI:" 


F48:6C 65 73 29 53 28 3h ?20 Les $S = | 39 INPUTH#HI,N$,D,F 
F58:40 59 73 24 65 20 53 61* Liste Sal 49 MOTOR 

F58:75 24 73 @D PA 47 28 3 uts.,B =| 59 PRINT'Trouv :"3NS$ 
F62:20 42 61 73 69 63 90 58 Basic.X|] 6 FORI=D-1TOF 


78 POKEI, INPCH1) 

8@ NEXT :MOTOR 

98 END 

108 CLEARSR, &H9FF 

19 D=8&H3CIB:F=8RHS3FES 

28 N$="REFBAS":INITHI, "CASO:" 
138 INPUT"Magnto OK";T$ 

48 PRINT#I,NS,D,F:MOIOR 

158 FORI=1TO1808:NEXT 

168 FORI=DTOF :OLITH],PEEKCI) 


F68:2D 37 31 30 20 /Q 72 65 -718 pre 
F/20:74 65 20 3F @0 41 6E ] te ?,fina 
F78:6C 79 73 65 20 65 6E 20 lyse en 

F82:63 6F 75 72 73 AD RA 28 C'OLITS à 5 
F58:4D 65 6D 6F 69 72 65 28 Memoire 

FS2:6S 6€ 73 75 66 66 69 73 Insuttis 
F38:61 6E 74 65 QD PA La 54 ante,...l 
FAG:72 63 20 65 6E 20 63 6F ri en co 
FAS:75 /7 73 QD GA AQ 15 4C M Sa are 

fFB2:69 77: 74 65 20 64 65° 73 iste des 


WFB8:29 76 61 72 69 61 62 6C var iabll 129 NEXT:MOTOR 
IFCA:65 73 @D LA 16 54 61 62° | es,.,.Tab END 
fFC8:6C 65 29 64 65 73 2 7? le des Tr 


F00:65 66 65 7/2 65 6E 63 65 ‘eference 
fFD8:77 D 2 61 26 DT 06 26. s.,.a.8.4 
fFE2:20 29 20 22 20 20 20 20 

IFE8:29 PA P2 Gb 00 00 0 A ...,.,... 5 REM *x%xX ENTREUR DE CODES XXX 
18 CLEARSO, &HOFF :A=&HSCI0 

20 PRINTHEXSCA)D3;" 3 “3 :INPUT C$ 

30 U=UALC'&H"+CS):POKE AU 

49 A=A+l1:IF ADRHSFES THEN PRINT'TER 
. "IBEEP2, 3 END 


58 GCTO2a 


ACTION DE REFBAS SUR LE CHARGEUR 


variables 


D 118 140 

F 30 69 11@ 140 160 
I 68 70 159 160 169 
N$ 32 Se 120 140 

ï 


FIGURE 31 : FIN FIGURE 32: EXEMPLE+CHARGEURS 


EXABAS 


Dans la continuité de REFBAS , voici EXABAS qui constitue aussi un 
utilitaire puissant en implémentant les fonctions REF (références) et SR 
(Search and Replace) que l'on trouve sur certains gros ordinateurs dotés de 
fonctions d'éditeur infiniment plus complètes et plus performantes 


EXABAS constitue donc un utilitaire permettant de trouver dans un 
programme BASIC toutes les occurences d'une variable , d'une chaîne , 
d'un mot-clé . Il permet également de remplacer une chaîne 
quelconque ou un mot-clé par une autre chaîne ou un autre mot-clé. 


Le mode d'emploi d'EXABAS est aussi simple que celui de REFBAS : 


_ Avant de charger EXABAS , faire FSET 1024 (ou FSET 4096 si une 

carte moniteur est en place) pour le protéger . 

Charger EXABAS de la même manière que REFBAS . 

Lancer EXABAS par la commande EXEC &H3C10. 

Un menu comportant six options s'affiche alors : 

* OPTION _B : sortie du programme et retour au BASIC . 

* OPTION _V : recherche d'une variable particulière . 

* OPTION _C : recherche d'une chaîne quelconque (sauf les mots-clés ….) . 
* OPTION _T : recherche d'un mot-clé quelconque . 

Pour ces précédentes options ,; EXABAS réclame la chaîne à identifier puis 
affiche les numéros de ligne où cette chaîne figure . 

* OPTION __c : remplacement d'une chaîne par une autre . 
* OPTION _t : remplacement d'un mot-clé par un autre . 

Pour ces deux dernières options , EXABAS réclame le nom de la chaîne à 
remplacer puis celle de remplacement . Il affiche ensuite les numéros des 
lignes où l'opération est effectuée 

_ L'appui sur CTRL Q permet de revenir instantanément au BASIC . 

_ Dans tous les cas , le logiciel marque une pose quand l'afficheur est 
rempli . Il attend la pression sur une touche pour continuer l'exécution . Si 
cette touche est "I" , le contenu de l'écran sera envoyé vers la X-710 . Notons 
qu'une fois l'analyse terminée , le X-07 affiche un carreau . 
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EXABAS permet quantité d'applications . C'est un outil puissant qui a été 
testé sans problème sur de nombreux programmes . Néanmoins , il est 
indispensable d'effectuer une copie de protection des programmes à étudier 
avant d'utiliser EXABAS 


Au niveau technique , les problèmes de recherche sont traités de la même 
manière que REFBAS . Le problème du remplacement des chaînes est plus 
délicat à traiter car la longueur du programme est susceptible de varier 
Aussi, après chaque modification , est il nécessaire d'ajuster tous les pointeurs 
des lignes suivant celle qui vient d'être modifiée 


Longueur _d' EXABAS : 901 octets . 
Implantation _d' EXABAS : de 3C10h à 3F95h. 
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3CC8:7?7 
3CD2 : 
3CD8:5 
3CE2 : 
3CE8 : 
3CF4:62 


X].ys0P< 
"=, (M, N9 
m Mur Mu < 
+UJ.D=TJ 
.=rCJ,=* 
tJ7?scJb 
Bts E. 
G''=, (CCE 
V: Lans, 
G, YmWb CC 
M=<@:i+,,.. 
22+,2,S; 
M'A CCE 
.1CzIMus 
MrkH,X«, 
PAT E 
97, 8sy" 
.(b21<I" 
Fa ares 
M E2 AU 

..P#>e,z 
lec,,rP, 


g,.eE-nm 
Nfak.uai 
T$.neto. 


zchaïine 
B=Rasic 
.c/t=Cr 
angement 
Mot 464, 
.Chaine, 


Nom.lnit 
ial,.,,Nc 
UVeAau,,., 


Mt 
gi=lusnr 
KHITKS :5S, 
v.8i Mme: 
DR LADY CA 
LKR 


C",,,km 
3F38:CD 5D 3F El C3 DC 3SE CD MJ?aCx> 
3F40:6D 3D 32 D8 3C 21 4E SD m=2Xx<2N 
3SF48:CD F7 FE CD 70 3D 32 58 Mu-Mp =2 
GF59:30 3e Q1 32 EC 3C 32 6C =}.21<2 
GF58:3D AF C3 9A SE DD ES ED =/C,.)je 
GSF60:4B 93 3F AF DD 6E 08 DD K.?7/]n. 
FF68:66 41 09 DD /5 @@ DD /4 Fa Je 
SF7@:@1 ES DD El DD BE @I 20 .e]la]». 
GF?8:EB DD Ei 23 23 22 22 @3 kja##"" 
3F80:C9 AF 11 D8 3C DD BE @1 I17.X<1» 
SF88:CA ?E SE DD ES El @i 04 J.)]Jea. 
GF3d:40 àù C3 90 00 66 00 08 AR PNR E 


CLEARSO, &H9FF 
28 INITHI,'"CASI:" 

30 INPUTHI,N$,D,F 

48 MOTOR 

50 PRINT Trouv :":N$ 

60 FORI=D-1TOF 

798 POKEI, INPCHI2 

89 NEXT :MOTOUR 

38 END 

180 CLEARSO, 8H9FF 

118 D:RHSCIB:F-RH3F9S 

120 N$="EXABAS'":INITHI, "CASO:" 
139 INPUT'Magnto OK':;TS$ 

148 FRINT#I,N$.D,F :MOTOR 

158 FORI=1TO1808:NEXT 

160 FORI=DOTCF :OUT#H#1,PEEKCI) 
17@ NEXT:MOTOR 

END 


XX X* 


5 REM XXX ENTREUR DE CODES 
18 CLEARS5G, &HArF+F :A=RHICIP 


28 PRINTHEXS(A);" : ";:INPUT CS 

30 U=UAL("RH '+CSj:POKE AU 

44 A=fAti:IF ADSRHSFIS THEN PRINT" 
. ":BEEP2, S END 


GOTO20 


ACTION DE EXABAS SLIR LE CHARGEUR 


Nom? N 
Mot cl? 


PRINT 


Mot ci? FOR 
Mot cl? DEFSTR 


T$ 


Nom? 


FIGURE 33 : FIN FIGURE 34: CHARGEURS 


Enfin un vrai jeu d'aventures pour le CANON X-07 !!! Ce genre de jeu 
était vraiment très rare pour ne pas dire inexistant et nous avons décidé de 
vous y faire goûter … Vous n'allez pas être déçu ! 

Le but du jeu est d'explorer une grande maison : la visite de toutes les 
salles est indispensable pour atteindre la sortie … Bonne chance !! 


Le mode d'emploi est le suivant : 


Charger le programme en version vidéo ou LCD suivant vos désirs 
Comme toujours , le petit programme BASIC se chargera de rentrer les codes 
en mémoire . Faire un FSET avant le chargement tout en sachant que la 
mémoire est altérée de &H800 à &H1900. 
le programme possède trois points d'entrée 
*EXEC &H800 : début du jeu . 

*EXEC &H815 : vous repartez de l'endroit quitté par la commande "P". 
*EXEC &H838 : vous repartez de l'endroit quitté par la commande "Q" . 
Le programme affiche sur la ligne n° … 

* 1 : le nom de la salle et les directions possibles (N , S , E , W). 

* 2 : les objets mobiles éventuellement présents dans cette salle . 

* 3 : un message de description de la salle . 


* 4 : ligne utilisée pour recevoir vos commandes et afficher les réponses 
du programme . 


_ Les commandes se répartissent en deux catégories 
* composées de une lettre : _N ,S,E , W pour se déplacer . 
_ J pour avoir la liste des objets possédés . 
_ Q pour quitter . 
_ P pour faire une pause (sauvegarde) 
* normales : le programme comprend des "phrases" composées d'un 
verbe à l'infinitif suivi d'un nom . Ex : "SAUTER COULOIR" . 
En fait , seules les quatre premières lettres de chaque mot 
sont analysées et il suffit de taper dans l'exemple "SAUT 
COUL" . Si le verbe n'est pas compris , "????" est affiché . 
Par contre , si le nom n'est pas compris , " 2999" apparait. 


Longueur des logiciels : 4205 octets (LCD) et 4329 octets (vidéo) . 
mplantation : de 800h à 186Ch (LCD) / de 800h à 18E8h (vidéo) . 
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1#1H#0%. 
EU} aañ_ 
X,.,.:5 y 
CE ARS 
8.U. M] 
Q.7H,.n, 
.W 


E 
NI 
IFHM... 
ANR à! 
({IY.Ca- 
B.G, Yml 
CCN=<e :+ 
+02. 
S ;nm",Cc0 


G"=. 


FIGURE 35 : LE PIEGE (LCD) FIGURE 35 : SUITE 


428972] 
12830.K 
. . OUUR. 
REN.POS 
. LACH.D 
SC.BOIR 
LIRE.OT 
R.ENLE. 
AUT,REG 
.EXAM.T 
RE.POUS 
ALLU.FR 
P: CASS. 
ERM, MAN 
. MONT. A 
LE.ENTR 
ECOU.ET 
I.METT. 
AIR... 
EF. TORC 
E.PAPIE 
. CASSET 
E. CORDE 
CAFE.MA 
TEAU, CL 
S. BURIN 
L'IURE.T 
NAILLES 
PILES.P 
MMES. SE 


FIGURE 35 : SUITE FIGURE 35 : SUITE 


1E42:60 9B 2D 6D 65 28 65 6E m.-me ei 
3E48:64 72 6F 69 74 20 66 61 droit f 
3E50:69 72 65 2Q 3A 20 20 00 ire 
3E58:45 58 45 43 26 48 38 S1 EXEC&H8 
3E6Q:35 00 45 58 45 435 26 48 S.EXEC& 
3E68:38 33 38 00 56 6F 75 75 838,Vou 
2E/2:20 70 6F 73 73 65 64 65 possed 
1E/78:7À 20 SA PQ 20 44 65 76 z :,.De 
2E60:61 6E /4 28 75 GE 65 28 ant une 
1E88:67 61 69 73 6F 6E 20 2A maison 


2E98:99 52 9C 64 75 69 74 28 .R.duit 

2E98:20 2A 28 45 QU 44 SC 62 x E.D. 

2EN0:75 74 20 63 6F 75 6C 6F ut coul 

2tAS:693 72 28 2A 2@ 4E 45 57 ir X NE bloqu.e 
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DERS:6E 29 2A 20 4E 45 57 00 n X NEW veë pa 
dECc@:55 6E 22 62 75 72 65 61 Un bure Cor: 
2ECS8:75 28 2A 28 57 @@ 55 6E u Xx W.l Fort 
2AETA:70 76 61 6C 69 65 72 280 palier HALESe 
£EDS:24 2@ 4E RQ 4D 69 6C 69 x N.Mil épis e 
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PF48:65 20 7À 20 4E SS 45 57 e *X NSE 
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S REM XXX CHARGEUR - VERSION LCD 
18 CLEARSG, 8&H?FF 
sin” L'2RsINITAI: CASA: ! 
dé t: | 30 INPUT#I,NS$,D,F 
tit... 4@ MOTOR 
Olter C [5 PRINT'Trouv :'";N$ 
Z3ette, | 60 FORI=D-1TOF 
? i | 78 POKEI, INPC#1) 
8@ NEXT :MOTOR 
S@ END 
188 CLEARSO, &HSFF 
110 D=8&H808:F=8&H186C 
129 N$="AUENT2":INIT#1,"CASO:" 
139 INPUT'Magnto OK'";7T$ 
148 PRINTHI,N$,D,F :MOTOR 
150 FORI=1TO1820:NEXT 
169 FORI=DTOF :OUT#1,PEEK(CI) 
178 NEXT :MOTOR 
188 END 


5 REM XXX ENTREUR DE CODES - LCD Xx 
18 CLEARSB, &H?FF :A=8&H802 

20 PRINTHEXS(A);" : "ÿ:INPUT C$ 

3Q U=UALC"8&H +C$):POKE AU 

49 A=A+IIIF ADRHISGC THEN PRINT" 
... ":BEEP2, S'END 

5A GCOTO28 
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8E48:2) 893 C3 79 LA ES CS 2! -,Cy,eË 
8E50:2A QC CD A3 OC FD 6E Ra XI 
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CE68:64 99 Ci Ei C9 CD AF 29 j.AalM” 
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I TATIUS 
QEAG:E4 QE CD F7 FE CD 20 83 T.MurM 
REAS:CS EC 09 SG 6F 75 72 20 Cl,Pour 
RERP:72 65 ?7Q 61 72 74 69 ?2 reparti 
PERR:20 64 75 20 60 9B 6 €5 du m.m 
2ECR:20 65 6E F4 72 6F 69 74 endroi 
REC8:0A QD 6€ € 1 69 72 65 24 na FOUTE 
PENR:SA 20 2% PQ 45 58 45 43 î  ,EXE 
2208:26 48 38 ?:1 35 AN 45 58 RHBI1S,E 
dct0:45 43 26 48 78 33 38 PA EC&HXxTE 
2EES:56 6F 75 73 29 70 6F 73 Vous po 
LEF2:73 65 64 ES ?7A 28 SA LE sedez 
>) 2 .Devant 
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AFQ8:6F 6E 22 7 QQ S2 SC 64 on *X,R,. 
8F10:75 69 74 70 20 2AÀ 28 45 uit *X 
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sayez L S REM %XXxX CHARGEUR - UIDEO XXX 
RE.UtilL 18 CLEARSG,8&H7FO:DEFINT A-2 
sez N,S 28 INIT#H1,'"CASI:" 
E ou W. 30 INPUT#I,N$,D,F 
lle est 40 MOTOR 
coinc,e SA PRINT'Trouv :"3;3N$ 
Il est 60 FORI=D-1TOF 
iou..fi ?@ POKEÏI, INPCH1) 
y à une 8Q NEXT :MOTOR 
serrure 9@ END 
Il faut 109 CLEARSO,8&H?7F@:DEFINT A-2 
des out 119 D=8&H800:F-&H18E8 
ls.Entr 120 N$="AUENT':INIT#],"CASO:" 
e gratu 130 INPUT'Magnto OK";T$ 
te.lile 14@ PRINT#I,N$,D,F:MOTOR 
t rass 150 FORI=1T01800:NEXT 
.. Vous 168 FORI=DOTOF :OUT#1,PEEKCI) 
ntrez d 178 NEXT :MOTOR 

18@ END 


5 REM Xx%x ENTREUR DE CODES - UIDEC 
CLEARSB, &H/FF :A=&H800 
PRINTHEXS$CA);" 3: ";:INPUTCS$ 
U=UALC"&H"+CS$) :POKEA,U 
A=A+I:IF ADRHISES THEN PRINT'TER 

. ":BEEP2, 3 :END 
GOTO2@ 


FIGURE 37 : FIN FIGURE 38 : CHARGEURS 


THELLO-REVERSI 


Remarquable à la fois par la simplicité de ses règles et par la complexité 
des tactiques et des stratégies à mettre en oeuvre , Othello-Reversi a conquis 
en quelques années des dizaines de millions de passionnés dans le monde 
Bien qu'il reste relativement peu pratiqué en France , il possède toutes les 
qualités d'un jeu exemplaire 

Le Reversi a été inventé dans la seconde moitié du 19ème siècle en 
Angleterre . Après de nombreuses aventures , un japonais l'a “réinventé" sous 
le nom d'Othello 


Les règles du jeu sont simples . Othello se joue sur un plateau 8*8 dont 
toutes les cases sont de la même couleur . Les pions utilisés sont à double face 
d'un coté blanc , de l'autre coté noir . Chaque joueur prend une couleur : l'un 
sera blanc , l'autre noir . Au début de la partie , les joueurs disposent quatre 
pions au centre de l'échiquier 

Les premiers pions posés , les joueurs jouent chacun leur tour en posant 
un pion de leur couleur sur une case libre , de telle façon qu'entre ce pion posé 
et un autre pion de la même couleur , un pion au moins de la couleur adverse 
soit pris en "tenaille" , selon une ligne horizontale , verticale ou diagonale . Le 
ou les pions pris sont alors retournés et ils prennent la couleur du preneur , 
d'où le nom de Reversi . La pose d'un pion peut prendre en tenaille des pions 
selon plusieurs lignes . Ils sont alors tous retournés . Mais il n'y a pas 
"transitivité" : un pion retourné ne peut entraîner de nouveaux retournements. 

I y a obligation de toujours retourner un pion adverse . Lorsqu'un joueur 
ne peut pas jouer de coup qui le lui permette , il doit passer son tour 
Lorsqu'aucun joueur ne peut plus jouer , soit que toutes les cases soient 
remplies , soit qu'il n'y ait plus de coup possible selon la rêgle ci-dessus , la 
partie s'arrête et le vainqueur est celui dont la couleur apparait sur le plus 
grand nombre de pions posés 


Sur le CANON X-07 , le logiciel suit scrupuleusement les règles décrites 
ci-dessus . Les pions ne pouvant être colorés , vous posséderez des pions de 
forme différente au programme qui se révèle , soit dit en passant , très fort 
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Le mode d'emploi est le suivant : 


Après avoir chargé le programme en mémoire grâce à la K7 (CLOAD 
puis RUN pour charger les codes) ou à la “main” grâce aux chargeurs joints , 
vous devez lancer le programme par EXEC &HEO00 suivi de RETURN . 
_ Une présentation défile … Tapez sur RETURN : le X-07 vous demande si 
vous désirez jouer contre lui ou contre un adversaire humain 
_ Ensuite , le niveau de jeu vous est demandé : entre 1 et 9 . Le niveau 1 
est beaucoup plus facile que le 9 … 
_ Le X-07 s'enquiert enfin de vos initiales (4 lettres) : tapez-les et le 
CANON vous présentera le damier . 
Sur la gauche de l'écran , l'échiquier 8*8 est dessiné et à droite de 
l'afficheur le nombre de pions gagnés par chacun des deux joueurs 
Pour jouer , vous devez déplacer le point clignotant avec les quatre 
curseurs … Dès que vous avez choisi votre place , tapez sur RETURN et le X-07 
calculera et affichera les pions gagnés . Le X-07 jouera ensuite et le jeu 
continuera ainsi jusqu'à la fin de la partie 
_ Notons que si vous devez passer , vous pouvez appuyer sur "P" : le X-07 
vous accordera ce droit si vous êtes vraiment bloqué … Sinon , il vous affichera 
vos possibilités de jeu ! De plus , le jeu peut être quitté à tout moment par 
l'habituel "CTRL Q". 


Bonne chance Dommage , on ne peut pas tricher !! 
Longueur de REVERSI : 3073 octets . 
Implantation de REVERSI : de 800h à 1400h . 
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| FKKKKKKT|29390 :5 
becs :52 SE 48 48 138 48 486 48 PSHHHHHHIGS98 :CE 89 E! 36 @1 25 SA D N,.a6,%x:Q 
|p8 1 2 :52 50 SE 48 48 46 48 48 RPSHHHHHIGSAR :2S 86 32 D1 A3 24 19 E6 ..2Q.$,.f 
1B818:48 52 50 SE 48 48 45 48 HRPSHHHFI0SA8 :06 FF 69 IC 165 88 IA 57 ste sc 
820 :48 48 52 SP SE 48 48 48 HHRPSHHF|GSBG:B) 29 C4 SA D9 23 B7 C8 7 D'P,7H 
DB2R:45 48 48 52 50 SE 48 «8 HHHRPSHEIG3B8 :25 3A DI1 893 87 86 32 Di #:Q,,,20Q 
1BBSC :48 48 48 48 352 50 5E 48 HHHHRP*FIUSCS :233 24 36 A1 ?7D F6 80 ES .$6.}u,e 
858:48 48 48 48 48 52 59 69 HHHHHRP [L9C8:2A CE 09 77 El C3 08 16 XN,wal., 
XXxxxxaF [0900 :22 04 SA A1 13 4F DD 46 ..:..0]F 
5 are OS3D8:93 78 FE 03 38 18 CS 06 :xv, 8.E. 
..183€0:92 CD F6 @93 C1 793 88 D6 .Mv,Ay.U 
,.|R9E8 :: 


data Pete 4, ? GM>, Jal} 
RTE .JBAA8S :7E 06 ED 44 FD BE 93 38 .mD}».8 
PEUT oIUABG :G03 FD 7E 89 FD 46 28 FD PER A 
PRES @AB8:CR A1 7E C4 SD 12 11 80 KSDAa 
.......l@ACa:39 FD 19 FD 77 48 FD 78 .), }u, }p 
@AC8:93 DD 21 1Q 13 CD 3A 9 119,.M7, 
OADA:FN 36 06 Qi FD ?E A1 E6 36... 
.[8AD3:6F 20 06 CD AS UB FD 7? . MH, u 
QAEG:87 FD 7E 04 FD 72 BA 6F sir, }u, 0 
.IBRES:18 QE DD 23 DD ?E @@ FD 141,7} 
.IGAF&:BE GA 28 F6 6F 17 38 59 >, (vo,8Y 
.[8RF8:AF B6 20 EE ES FD 6E 453 46 nejn. 
:[8B0G:FD 66 02 22 CE @9 Ei CD JF,."N. an 

.118B28:5E 93 28 DE FD ?7E @1 E6 SEC 
.(tx2(2:18B10:0F 20 88 3A D1 29 FD 86 . OM 
P..2P,+.18B18:0/ 18 @F DD ES FD ES ES ...Je)ee 
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S REM %XXX OTHELLO - REVERSI XXX 
19 CLEARSO, &H7FF 

28 INIT#1,'CASI:" 

30 INPUTHI,N$,D,F 

48 MOTOR 

58 PRINT'Trouv :"3N$ 

68 FORI=D-ITOF 

7@ POKEI;, INPCH1) 

80 NEXT :MOTOR 

3 END 

20 CLEARSO, &H7FF 

19 D=8&H890:F=-8&H1400 

2@ N$="AUENT":INIT#1,"CASO:" 
32 INPUT'Magnto OK";TS$ 

149 PRINTHI,N$,D,F :MOTOR 

50 FORI=1TOI8@0:NEXT 

160 FORI=DTOF :OUTH1,PEEKCI) 
78 NEXT:MOTOR 

88 END 


5 REM XXX CHARGEUR DE CODES 


1@ CLEAR, &H7FF:A=8&H820 
28 PRINTHEX$CAI3" 3 "33: INPUT C$ 
3 V=UALC"&H'" +08) :POKEA,U 
A=A+1:IFA>RH1400 THEN PRINT 
.. "BÉEP2, 3 END 
59 GOT022 


FIGURE 49 : CHARGEURS 


En l'espace de six mois , nous avons concocté deux ouvrages sur le CANON 
X-07 , très demandés par les utilisateurs de cette superbe machine 


Nous les avons composé avec grand plaisir et nous espèrons qu'ils auront 
apporté les réponses nécessaires aux nombreux problèmes auxquels se 
trouvent confrontés quotidiennement les canonistes 


Bien entendu , tout renseignement sur tel ou tel sujet traité dans "Les 
mystères du X-07" ou dans le présent ouvrage vous sera immédiatement 
délivré par le service technique du CLUB C7 : par courrier , par téléphone , de 
vive voix ou par MINITEL . 


Les Editions NEPTUNE publieront régulièrement de nouveaux ouvrages 
informatiques en essayant toujours de garder une optique de bas prix , 
d'originalité et de haute qualité alliée à une simplicité de présentation 


N' hésitez surtout pas à nous contacter : le marché de l'informatique 
évolue rapidement et nos prochaines publications seront éditées avec 
l'intention certaine de rester à la pointe de l'actualité 


Bravo au X-07 qui nous a tellement étonné et qui nous surprendra sans 
doute encore longtemps 


Le directeur de la Publication 


x 


Yk 


André TONIC 


APVIVIENES) 


ANNEXE 1 
ASS/DESA 


Maintenañt que vous connaissez l'ASSEMBLEUR , il faudrait vous équiper 
d'un logiciel "ASSEMBLEUR'" vous permettant d'échapper au studieux travail 
de rentrée des codes !! 

Il existe pour le moment sur le marché deux ASSEMBLEURS très corrects : 
celui de la société LOGI'STICK et celui du mensuel MICRO SYSTEMES . 


Le premier est relativement bien fait mais présente quelques lacunes : 
limitations au niveau des labels , pas de directives (ORG , DEFM ..) , un peu 
compliqué d'emploi 


Le deuxième , écrit entièrement en langage machine , est pratiquement 
parfait . En effet , il tient sur un carte mémoire de 4 Kilo-octets , possède 
beaucoup de pseudo-instructions ainsi que des fonctions de contrôle très 
puissantes . Nous le préférons nettement à celui de la société LOGI'STICK pour 
sa rapidité , sa compacité et , surtout , pour sa grande facilité d'emploi . Tous 
les listings source de cet ouvrage ont d'ailleurs été réalisés avec ce programme. 
Il est paru dans le numéro 49 de la revue MICRO SYSTEMES . 


Vous devez sûrement vous douter qu'il existe un programme qui permet 
d'effectuer l'opération inverse d'un ASSEMBLEUR . Effectivement , quand vous 
avez assemblé un programme en mémoire , vous désirez probablement 
vérifier si cela a été bien opéré . Afin de calmer vos angoisses , il existe un 
logiciel appelé "DESASSEMBLEUR'" permettant de lister la mémoire et de 
désassembler les codes entrés . En général , un DESASSEMBLEUR est 
accompagné d'un programme "MONITEUR" possèdant d'autres fonctions 
intéressantes (mode TRACE , sauvegarde de codes , listings de codes en ASCII , 
sortie sur imprimante ...) 


Trois logiciels se disputent la “suprématie du marché" : celui de 


LOGI'STICK , de CANON et de MICRO SYSTEMES . Nous allons 
systématiquement les passer en revue 
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La société LOGI'STICK édite , sur la même cassette que l'ASSEMBLEUR , un 
DESASSEMBLEUR-MONITEUR . A l'inverse du premier programme , le 
DESASSEMBLEUR est très bien fait et autorise de multiples opérations sur la 
mémoire . Il est rapide et très pratique d'utilisation . Actuellement , la cassette 
incluant l'ASSEMBLEUR et le DESASSEMBLEUR-MONITEUR est vendue au prix 
de 125 Francs par le CLUB C7 (Le plus bas prix constaté , réservé 
uniquement aux adhérents ...) 


La société CANON a commercialisé , sous forme de carte mémoire 
préprogrammée , un DESASSEMBLEUR-MONITEUR très puissant . Cette carte 
XP-140F , dotée de 8 kilo-octets de ROM et de 4 kilo-octets de RAM 
utilisateur, est vendue entre 500 et 550 francs . Elle permet quantité de 
manipulations grâce à dix fonctions BASIC supplémentaires (RENUM , MERGE 
AUTO ..) et à un mode MONITEUR très performant (points d'arrêts 
désassemblage multiples, entrée de codes ...) 


, 


, 


Enfin , le journal MICRO SYSTEMES a publié dans son numéro 42 , un 
DESASSEMBLEUR-MONITEUR complet . Il s'avère un peu moins fouillé que 
celui de la société LOGTSTICK mais possède tout de même une puissance de 
travail honnête 


Pour que vous n'ayez pas de problèmes à trouver ces divers logiciels 
voici les adresses des différentes sociétés les commercialisant 


» 


CANON _ FRANCE MICRO _SYSTEMES LOGI'STICK 

7 av. Albert EINSTEIN 2 à 12 rue de Bellevue Centre d'affaire 

Centre d'affaire 75940 Paris Cedex 19 "Le Bonaparte" 

93153 Le blanc Mesnil 93153 Le Blanc Mesnil 
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Ces quelques lignes vont vous renseigner sur le CLUB C7 , association 
fondée en OCTOBRE 1984 . Elle a réussi à imposer une gazette complète et 
très recherchée ainsi que des services de haute compétence 
(permanence technique, stages , service courrier très développé ..) . Rejoindre 
le CLUB C7 , c'est entrer dans le monde fantastique des “"Canonnistes" qui 
maîtrisent parfaitement leur machine préférée : le CANON X-07. 


Le CLUB C7 : que du CANON X-07 


Le CLUB C7 est une association sous la loi 1901 . Son but est de faciliter la 
compréhension et le développement de l'ordinateur portable CANON 
X-07 et d'agir comme un point de liaison entre les possesseurs du X-07 grâce 
à plusieurs atouts : une gazette , une programmathèque , une aide technique , 
une coopérative , des stages , etc … 

Le CLUB C7 a été fondé par des professionnels en informatique et des 
étudiants : toute personne désirant une aide , un journal , des contacts … peut 
s'inscrire et bénéficier de tous les services du CLUB gratuitement , après 
avoir réglé sa cotisation (380 francs pour l'année et 430 francs pour 
l'étranger). 


Le CLUB C7 : le SON du CANON 


La gazette intitulée "le SON du CANON" a une vocation bimestrielle 
Elle est constituée , en moyenne , de 40 pages format A4 traitant de tous les 
domaines concernant le X-07 : BASIC ,; LANGAGE MACHINE , PROCESSEURS, 
HARDWARE , PROFESSIONNEL , ROM , COURRIER , ADRESSES , ESSAIS de 
LOGICIELS … 

"Le SON du CANON" est envoyé aux adhérents avec une K7 audio 
récapitulant tous les programmes de ladite gazette : les efforts de frappe 
source d'erreurs , longs et pénibles sont ainsi évités . 
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Le CLUB C7 ; L'AIDE TECHNIQUE 


Cette AIDE TECHNIQUE se présente de 2 façons : les permanences et le 
courrier 

Les permanences téléphoniques se situent tous les mardi aprés-midi de 
14h à 18h au 43.71.08.00 . 


Néanmoins , vous pouvez passer nous voir le mardi après-midi 
uniquement à l'adresse du CLUB 

Nous fournissons aux adhérents , aussi bien par courrier que de vive voix, 
tous les renseignements dont nous disposons sur le CANON X-07 : ROM 


désassemblée ; cours d'apprentissage au BASIC et L.M. : 
informations complètes sur le HARDWARE , adresses , etc 

Cette aide est appuyée par les connaissances étendues de techniciens 
chevronnés travaillant sur .le X-07 depuis sa sortie en France : rien ne leur 
échappe !! 


Le CLUB C7 : une PROGRAMMIATHIEQUE 


Le développement de la programmathèque est lié à la participation 
que lui apporte nos membres : en effet , ce sont eux qui fournissent la 
majorité des programmes dont la liste est présente dans chaque gazette 

Pour encourager les programmeurs et garantir une bonne qualité des 
programmes , ceux-ci sont vendus à un prix modique (entre 5 et 20 Francs) et 
le programmeur recoit chaque année la moitié du montant total de la vente de 
ses programmes 

Les programmes commandés sont envoyés aux adhérents sur K7 avec une 
notice détaillée 


Le CLUB C7 : une COOPERATIVE 


La coopérative a pour but principal de vendre des produits moins chers 
que sur le marché : nous disposons de beaucoup de produits et nous 
souhaitons un développement massif de cette section pour offrir aux adhérents 
le maximum d'avantages 


Pour tout renseignement complémentaire ou 
inscription , veuillez contacter le CLUB C7 au : 

33 avenue Philippe AUGUSTE , 75011 PARIS 
Tél : 43.71.08.00 (Métro NATION) 
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POBLICATIONS CF 


* LM. & nombres aléatoires 
* L'interface PERITEL X-720 


* Solitaire/Pentominos : LM. 
* Agenda (LSC), Calc (P.S.) 


* Kit appel, Maths,Astro de LSC 
* Jeux : Magic Circus , Dactylo … 
* Trucs astuces informations … 
* BEEPS TRES SPECIAUX I! 


SPECIAL LM. 
* Auto-programmation,adresses 
* PAINT : 3 fonctions graphiques 
* FICHIER,ASS/DESASS de LSC 
* Carte 40 Ko d'INFOSYSTEMES 


* Camemberts Statistiques 
* Tri de nombres en LM. 
* Anti-BREAK en LM. 

* Adresses : Mots-Clés … 


et 


* Traitement de textes (LM) 
* adresses : fin des mots-clés 
* Progs. en L.M. et BASIC 

* Graphe (P.S.), Forth (LSC) 
* Références croisées (L.M.) 


OBIOEIE 


* Jeu de ta VIE en LM. 


* Le sous-processeur T6834 
* Les BOOLEENS du X-07 

* Les sympathisants du X-07 
* Nautilus Calic,Graphe de LSC 
* Les adresses : RST en folie 
* COPYRIGHT en folie … 


* Essais : XFORTH , SAISIE 07 
* La société ER. E. 

* Traceur muiti-courbes. 

* Notes de frais : pratique … 
* Le jivre de l'année. 

* Lecteur de disquettes . 


* Essai de ia XP-150F. 
* OLYMPIC GAMES 2. 

* Etiquettes : superbe | 
* Vidéo : Rayon Z … 

* La télématique . 

* Et des surprises | 


6 
8 


* ‘Instruction BOX en LM. 


* Essais : Jeux 2 et RD.I. 

* Microbox d'ADIRIS 

* Les routines de conversion 
* Labyrinthe 3D, alarme 
* 40 programmes (ETSF) 

* Inversion vidéo rapide . 


* Essais : X-740 ,X-07 COM. 
* Les sociétés de service. 

* Polygones complexes . 

* X-07 + LX-80 : génial !l 

* Spécial X-720 : 2 logiciels. 
* Télématique : feu vert !! 


CLÜE C7 


Si vous désirez acquérir l'un de ces numéros 
muni ou non de sa K7 (40 francs chaque n°), 
veuillez contacter le service de la publication 


du CLUB C7 au : 33 avenue Philippe AUGUSTE 
7501 1 PARIS (M° NATION). Téi : 43.71.08.00 


A BIENTOT 1!! 


L' ouvrage tant attendu par les possesseurs du CANON X-07 est 
enfin arrivé !! En effet , depuis sa sortie en France , il y a de cela plus de 
deux ans (Début Novembre 1983) , aucun ouvrage n'avait traité de près ou de 
loin de l' ASSEMBLEUR sur X-07 . Il est vrai que le sujet était relativement 
difficile d'accès … 


Devant la multitude de demandes émanant de toute la France , le CLUB C7 
a décidé d'éditer un livre très complet divisé en trois parties 

_ La première partie permet de se familiariser avec I'ASSEMBLEUR 
Z-80 utilisé par le CANON X-07 : idéal pour les néophytes !! 

_ La seconde partie vous livre tous Les mystères du  X-07 : 
architecture interne , ports de sortie , zone système , près de 150 adresses , la 
gestion des périphériques 

La troisième partie est constituée par huit applications pratiques 
vous amenant progressivement à utiliser plusieurs routines-clés du X-07 


Nous désirons souligner l' aspect pédagogique de ce livre qui n'a pas 
été négligé , loin de là : plus de 40 schémas , un style clair , des textes 
faciles à appréhender accompagnés de nombreux exemples 

Nous souhaitons tous que cet ouvrage , destiné aussi bien aux débutants 
qu'aux programmeurs chevronnés , constitue l'aide définitive à leur essor vers 
l'utilisation intensive de l'ASSEMBLEUR CANON. 


SPECIFICATIONES : 160 pages , format 21*14,5 , broché , couverture 


noire/jaune . 


Si vous désirez vous procurer cet ouvrage , 
veuillez contacter Mr TONIC à l'un de ces 


numéros 
1/ CLUB C7 (Tél : 43.71.08.00) 
2/ Editions NEPTUNE (Tél : 64.56.81.56) 
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Vous ne possédez pas encore la K7 des 
Editions NEPTUNE récapitulant tous les 
programmes importants de cet ouvrage ? 
Si vous avez un tant soit peu regardé les 
listings incorporés à ce livre , vous avez 
remarqué leur longueur assez imposante 


Alors n'hésitez plus !!! 
Cette superbe K7 va vous éviter les pires 
tracas de l'informatique : l'entrée des 
codes !! 


Elle est disponible pour Ia modique 
somme de 90 francs … Où ça ??? 
Aux Editions NEPTUNE , bien sûr !! 


Ecrivez-nous en joignant à votre courrier 
un chèque de 105 KF 
(90 F + 15 F de frais d'envoi) 
à l'ordre des Editions NEPTUNE 
et nous vous l'enverrons immédiatement !! 


SOMMAIRE 
de la  K7 : 


LMDATA (B) 

LOGO CANON (B) 
RESTORE (B) 

COPIE RAPIDE (B) 
LLIST (B+C) 
LOGOGENESE (B) 
LABYRINTHE (B) 
PENTOMINOS (B) 
SOLITAIRE (B) 
AUTONUM (B) 
REFBAS 16 Ko (B+C) 
EXABAS 16 Ko (B+C) 
LE PIEGE LCD (B+C) 
LE PIEGE VI. (B+C) 
OTHELLO (B+C) 


Attention : stocks limités … 


ANNEXE 
BIBLIOGRAPHIE 


Cette bibliographie , non exhaustive , peut vous permettre de vous 
documenter sur tel ou tel aspect de l'ASSEMBLEUR Z-80 ou du CANON X-07 . 


EDITIONS TITRE 
SYBEX "La programmation du Z-80" de R. ZACKS 
EYROLLES "L'ASSEMBLEUR FACILE du Z-80" 

P.S.I. "Programmer en ASSEMBLEUR" de A. PINAUD 
CANON Manuel de la carte MONITEUR XP-140F 
CLUB C7 Toutes les gazettes "Le SON du CANON" 

CLUB C7 "LES MYSTERES DU X-07" 

TESTS L'Ordinateur Individuel 

S.P.E. Micro Systèmes 


Cet ouvrage a été composé sur : 
# rm 
e [2] 
[y —_ 
Œcrrie LL 


PROMOCOM 
49 rue FONDARY 
75015 PARIS 
Tel : 45.79.80.12 
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Composé dans la continuité des « Mystères du X-07 », 
ce deuxième ouvrage complète les connaissances acquises 
lors de la lecture de ce dernier. Bâti autour de trois grandes 
parties (Soft, Technique, Applications), ce livre constitue la 
première référence en matière d’applications pures dans 
l’univers du X-07. 


Tout en reprenant les recettes qui ont fait le succès 
des «Mystères » (taille, clarté, exemples, schémas...) 
« Applications en ASSEMBLEUR dans l'univers du CANON 
X-07 » apporte son lot de nouveautés avec une présentation 
originale, un style différent et surtout une pléiade 
d’applications qui satisferont le plus exigeant des canonistes. 


Les Editions NEPTUNE 


I8 BIS, RUE VIOLET 
75015 PARIS 
TÉL. 64.56.81.56 
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